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In  recent  years  numerous  innovative  teacher  trr-inlng  proorcinis  v/hich 
iricorporate  neiv  knov/ledge  and  materials  have  been  developed.    One  o-^  these 
program?;  is  the  humanistic  field-based  teacher  educatici  program  at  the 
University  of  Florida  called  the  Childhood  Education  Program  (CEP). 

Underlying  assumpcions  of  CEP  require  that  tr-ici tional  courses  be 
replaced  by  seminars,  field  experience,  and  competency  in  substantive 
areas.    Students  work  at  their  own  pace  as  they  coir.;/le!;e  their  individual! 
tailored  programs.    Detailed  records,  used  in  the  continiious  evaluation  of 
tl'.eir  pragress,  are  maintained  by  the  faculty. 

This  study  examines  the  feasibility  of  developing  and  operating  o 
computer-based  management  information  system  for  CEP  to  provide  readily 
accessible  and  reliable  information  about  the  team  and  students  in  it. 

Development  of  the  system  was  conducted  in  terms  of  the  following: 
specifying  the  goals  and  objectives  of  the  system,  developing  the  system, 
testing  t!;e  system,  and  evaluating  the  system. 

vii 


Initially,  a  basic  understanding  of  the.  program  was  obtained  by  the 
investigator  in  order  to  enable  specification  of  the  goals  and  objectives. 
Then  the  actual  development  of  the  system  v;as  begun.    The  developinent 
procedure  was  braken  doK'n  into  the  following  activities:    specifying  the 
student  data  base,  v/riting  the  software  using  PL/1,  designing  procedures 
for  the  coilGcMon  and  dissemination  of  information,  and  writing  a  users' 
manual . 

A  test  of  the  system  v/as  conducted  for  a  period  of  one  quarter  on  a 
seminar  of  twenty-eight  students  and  the  faculty  members  on  their  team. 
The  computer-based  system  was  operated  parallel  with  the  current  manage- 
ment systeni.    Although  no  major  changes  were  made  in  initial  programs  in 
the  system,  new  programs  were  added  when  their  need  became  apparent. 

Faculty  evaluation  of  the  system  was  conducted  at  the  end  of  the 
quarter  using  the  CEP  Management  Information  System  Evaluation  form.  The 
result:    all  faculty  members  would  like  to  see  the  system  in  operation  for 
the  entire  team  since  it  provided  timely  and  accurate  information  about 
students  and  the  team.    This  information  could  be  used  for  counseling,  . 
decision  making,  arid  research. 

Although  faculty  members  indicated  they  v/anted  to  see  the  system  in 
operation  for  the  entire  team,  they  were  reluctant  to  use  it  despite 
prod(iing  from  the  inves  .igator.    This  reluctance  probably  stems  from  a 
general  fear  about  the  use  of  the  computer  and  the  limitations  imposed  by 
the  test.    Hopefully  this  relucLance  can  be  eliminated  by  further  educa- 
tion during  full  scale  implementation. 


CHAPTER  I 
'INTRODUCTION 

During  the  iast  decade  it  became  apparent  that  teacher  education 
programs  were  not  meeting  the  r.eeus  of  our  rapidly  changing  technological 
society.    Research  and  devolopi^isnt  activities  generated  new  knowledge 
and  materials,  but  theco  '..'ere  not  adequately  incorporated  into  teacher 
training  programs,    it  becams  inrreashigly  apparent  that  there  was  a 
need  to  incorporate  these  new  materials  into  teacher  training  p^odels. 
Consequently,  the  U.S.  Office  of  Education  funded  a  number  of  training 
models.    Other  inr.cvative  programs,  not  funded.,  were  devised  as  well. 
Cne  of  i.hese  prograins  was  the  huju-inistic  field-based  teacher  education 
program  at  the  dni versi ty  of  Florida  called  the  Childhood  Education 
Program  (CEP),    CEP  is  a  hu!;:anistic  program  since  it  was  "designed  to 
help  eacli  student  find  in's  own  best  ways  of  teaching"  (Wass  st  al.. 
Preface).    This  study  concerns  CEP. 

The  underlying  assun.ptions  of  this  program  require  that  traditional 
courses  be  replaced  by  seTiinars,  field  experience^  and  competency  in 
substantive  (subject)  areas,    llithin  these  procedures,  students  work  at 
their  own  pace  as  they  complete  the  various  learning  activities  1n  their 
individually  tailored  programs.    In  the  process,  seminar  leaders  are 
required  to  niaintain  detailed  r^ecords.of  each  student's  progress.  These 
records  are  a  vital  part  of  the  continuous  evaluation  procedures  which 
must  diaracter-ize  such  a  program  if  it  is  to  be  maximally  efi'ecrfve. 
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The  Problem 

This  study  examines  the  feasibility  of  developing  and  opGratiny  a 
corr>putGr -based  management  information  systG;ii  which  maintains  the  underlying 
characteristics  of  CF.P.    Specifically  this  study  addresses  the  following 
questions: 

1.  What  is  the  flow  or  information  in  the  current  management  sys- 
tem?   Siiould  this  flow  be  altered?    If  so,  iiow  and  why? 

2.  What  types  of  data  are  currently  being  collected  and  '.-.hy  are 
they  needed?    If  there  is  redundancy  and  inefficiency  in  the 
data  currently  being  collected,  how  can  this  be  corrected? 
What  other  types  of  data  are  needed?   Why  are  they  needed? 

3.  When  are  ihese  data  reeded?    Iri  vhat  forms  are  they  needed? 
Who  needs  these  data?    How  are  and  how  should  they  be  i:sed? 

A:;su!'iptions  and  Limitations 

Study  examines  the  feasibility  of  establishing  and  operating 
a  computer-based  management  in-^orn^ation  system  for  CEP.    An  imtial  as- 
sumption was  that  there  is  sufficient  similarity  between  and  ainong 
different  teans       the  program  to  allow  one.  team  to  serve  as  a  nodel  for 
the  development  of  the  system.    Thus,  minor  modifications  to  the  system 
should  pcriiiit  it  to  be  used  wit.h  ot!-;er  teams. 

Ideally  the  system  developed  would  have  been  tested  on  an  entire 
team  of  one  iiundred  and  twenty  students.    However,  lihiited  resources 
and  the  assignment  of  faculty  across  teaias  iiiade  this  impractical.  Thus, 
the  trial  run  of  the  system  was  conducted  fcr  one  quarter  on  one  seminar 
grouD  of  twenty-eight  students  and  faculty  members  on  this  team. 


3 


The  computer-based  system  v;as  operated  parallel  with  tha  then 
current  management  system.    Althvough  this  type  of  test  provided  checkup 
and  backup  capabilities,  it  was  in  some  respects  an  artificial  situation. 
Because  the  current  management  system  was  not  to  be  changed  it  imposed 
an  inefficient  flow  of  infoniiation  about  learning  activities,  field 
experiences,  and  comiHunity  experiences  into  the  computer-based  system. 
In  some  cases,  this  inefficiency  was  caused  by  unnecessary  human  inter- 
vention at  various  stages  before  the  data  entered  the  system.    Thus,  the 
full  capabilities  of  the  computer-based  system  could  not  be  realized. 

All  of  the  problems  associated  with  the  operation  of  the  system  on 
a  year-round  basis  probably  were  not  encountered  during  the  limited  test 
period.  However,  the  testing  has  been  sufficiently  comprehensive  to  en- 
able the  investigator  to  document  major  strengths  and  limitations  of  the 
computer-based  management  system  as  designed  and  implemented. 

Need  for  t.he  Study 

At  every  level  of  educrtion  from  the  elementary  school  to  the 
lirn'versity .  records  of  students'  progress  must  be  maintained.    The  quantity 
and  types  of  data  kept  on  each  student  vary  with  the  level  and  type  of 
program.    Perhaps,  the  Piost  demianding  type  of  record  keeping  is  in  a 
program  where  students  progress  at  their  own  pace  in  their  own  individual 
manner.    One  such  program  in  teacher  education  is  CEP. 

Currently,  seminar  leaders  aiid  substantive  panel  members  are  plagued 
by  an  antiquated  system  of  record  keeping  including  those  forms  used  in 
the  final,  midpoint,  and  quarterly  contract  evaluations.    Some  forms  may 
be  unnecessary.    Other  forms  may  contain  data  whid-  is  superfluous  to  the 
program.    There  is  duplication  of  effort  in  maintaining  various  typos  of 
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data.    VaUsable  time  which  could  bo  spent  interacting  with  the  students 
is  wasted. 

Some  of  the  current  record-keeping  problems  could  be  alleviated  by 
the  development  of  a  computer-based  management  information  system.  Basic 
student  data  would  need  to  be  entered  into  the  system  only  one  time.  Once 
stored  in  the  system,  these  data  plus  periodic  status  data  could  be  used 
to  generate  stuJent  progress  >"epcrts  and  special  summary  reports  as 
needed.    These  data  could  be  used  for  both  formative  and  summative  eval- 
uation of  CEP.    Cu;rent  record-keeping  procedures  make  such  evaluation  of 
the  program  a  tedious,  if  not  impossible,  task. 

Relevance  of  the  Study 

This  study  documents  the  feasibility  of  establishing  and  operating 
a  computer-based  management  information  system  for  humanistic  teacher 
education  programs  similar  to  this  one.    Perhaps,  more  importantly,  it 
indicates  problems  and  possible  solutions  which  may  arise  when  an  attempt 
is  made  to  join  two  important  forces  in  education  today,  i.e.,  technology 
and  humanism.    Technology  via  the  computer  and  humanism  are  considered 
by  many  educators  to  be  diam,etrically  opposed  to  one  another.    What,  in 
fact,  does  happen  to  basic  components  of  a  humanistic  program  with  the 
advent  of  a  computer-based  management  information  system? 

Definition  of  Terms 

CEP  -  An  acronym  for  the  Childhood  Education  Program. 

Myogram  -  A  term  i.'sed  for  addressing  the  Childhood  Education  Program. 

MIS  --  An  acronym  for  management  information  system. 

l£."ilMJ!l  ~     group  made  up  of  approximately  thirty  students  and  one 


faculty  member.    It  provides  counseling,  gai dance,  discussion  about 
educational  theories  and  practices,  and  training  in  coiuiiuni cation  skills. 

Seminar  leader  -  A  faculty  member  who  serves  as  the  personal  coun- 
selor, academic  advisor,  and  teacher  for  each  student  in  his  seminar  for 
their  entire  stay  in  the  program. 

Substantive  panel  •-■  A  group  of  instructors  who  represent  the  various 
areas  of  teacirmy  irathods  such  as  art,  language  arts,  mathematics,  music, 
science,  social  studies,  reading,  and  specialists  in  curriculum,  psycho- 
logical, and  social  foundations. 

Team  -  A  group  composed  of  the  team  leader,  four  seminar  leaders, 
the  substantive  panel  members,  and  approximately  one  hundred  and  twenty 
students. 

Team  meeting  -  A  biv/eekly  meeting,  which  is  attended  by  faculty 
members  and  student  representatives  from  each  seminar,  where  decisions 
concerning  policies  of  the  team  are  made. 

Learning  activity  -  A  number  of  activities  of  various  forms  must 
be  completed  in  each  of  the  substantive  areas.    Some  activities  are 
nequired,  others  are  chosen  from  a  list  of  alternatives,  and  still  others 
are  negotiated. 

Beyond  the  minimum  -  A  program  requirement  for  which  students  do 
mon-^.  than  the  minimum  number  of  learning  activities  in  three  substantive 
areas. 

F-ield  experience  -  A  direct  school  experience  where  students  are 
continuously  involved  with  increasing  time  commitments  as  they  progress 
through  the  program.    Througli  the  field  experience  students  become  aware 
of  what  they  need  to  know  and  •:ognizant  of  those  skills  they  must  develop 
in  order  to  become  a  teacher. 


Community  experience  -  An  alternate  form  of  field  experience  where 
students  are  placed  for  one  quarter  with  somo  community  agency  to  become 
more  avs/are  of  the  coirmunity  in  which  they  are  working. 

Community  session  -  A  regularly  scheduled  meeting  of  all  seminars 
within  a  team  where  a  wide  variety  of  programs  are  presented. 

Quarterly  contract  -  A  "quarter  contract"  is  submitted  by  each 
student  to  his  seminar  leader  outlining  his  expected  progress  for  the 
quarter.    The  student's  actual  progress  is  reviewed  with  the  seminar 
leader  at  the  end  of  the  quarter. 

Midpoint  evaluation  -■  A  conference  at  the  midpoint  of  a  student's 
program  involving  the  student,  his  seminar  leader,  and  one  or  two  faculty 
members  from  the  substantive  panel.    These  individuals  examine  the  stu- 
dent's progress,  discuss  her  (his)  field  experiences,  and  plans  for  the 
remainder  of  cJia  program. 

Final  evaluation  -  A  conference,  which  is  similar  to  the  midpoint 
evaluation,  during  which  the  student's  entire  progress  through  the  pro- 
gram is  reviewed.    At  this  time  it  is  determined  if  the  student  is  ready 
to  teach. 

Intensive-  -  A  level  of  field  experience,  usually  occurring  during 
the  final  quarter  in  the  program,  where  students  spend  five  weeks  of  full- 
time  teaching. 

DP  statement  -  An  acronym  for  data  definition  statement.    By  altering 
the  DD  statemeni-  different  input/output  devices  or  data  sets  may  be  des- 
ignated for  a  file. 

§lriictiire  -  A  hierarchical  co1  lection  of  data  that  possess  a  logical 
relationship  to  one  another.    The  structure  PERSONAL  contains  the  entire 
collection  of  data  stored  on  each  student. 


Orgon-ization  of  the  Study 

Chapter  I  consists  of  the  introduction,  statement  of  the  problem, 
assumptions  and  limittUions ,  need  for  the  study,  relevance  of  the  study, 
and  definition  of  terms.    In  Chapter  II  a  comprehensive  review  of  the 
relevant  literature  on  both  management  information  systems  used  in  educa- 
tion and  humanistic  teacher  education  and  description  of  the  current 
management  system  are  set  forth.    Chapter  III  describes  the  procedures 
used  in  the  development  of  the  system.    In  Chapter  IV  a  description  and 
evaluation  of  the  computer-based  management  information  system  which  was 
tested  are  presented.    Cnapter  V  p.-esents  the  summary,  conclusion".,  and 
reconniendations  for  future  research  and  development. 


CHAPTER  II 
REVIEW  OF  RELATED  LITERATURE  AND 
DESCRIPTION  OF  THE  CURRENT  SYSTEM 


Review  of  Related  Literature 


Introduction 

Initially  it  is  necessary  to  examine  the  current  study  in  light  of 

cha-iges  in  education  and  society  as  a  whole.    According  to  Molnar  (1972), 

our  Society  is  said  to  be  in  a  transition  from  being 
one  based  upon  industrial  production  to  one  based 
upon  knowledge.    This  new  emphasis  on  knowledge,  in 
turn,  places  greater  demands  on  education.    More  and 
more,  education  is  a  prerequisite  to  participation 
in  the  knowledge  society.    Many  schools  and  univer- 
sities, are  reevaluating  their  curricula,  [and] 
examining  the  needs  of  their  students,    (p.  3) 

As  nev(  curricula  developed^  "information    problems  --  ranging  from 

problems  of  collecting,  storing,  communicating,  retrieving,  and  displaying 

information  to  prcblens  of  receiving,  learning,  and  using  information" 

(Goovllad  et  al . ,  1966^  p.  10)  arose.    In  view  of  this  situation,  Goodlad 

and  others  reported: 

The  continued  use  of  antiquated  information 
processing  procedures  in  the  face  of  the  growing 
size  and  complexity  of  American  education  constitutes 
a  gross  anachronism.    Education  is  in  large  measure 
an  information  processing  system.    Ihe  right  data 
at  the  right  moment  give  teachers  and  administrators 
the  edge  they  need  for  making  calculated  rather  than 
uninformed  decisions.    Wisdom  and  information  are  a 
powerful  team.    Computers  can  provide  f:he  inforaation; 
educators  must  provide  the  wisdom,    (p.  ZO) 

Thus,  the  stage  was  set  for  the  rapid  adoption  of  the  computer  for 
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administration,  instruction,  and  research  in  education.  By  1972  nearly 
al !  universities  and  more  than  a  third  of  the  four-year  colleges  in  the 
United  States  provided  computing  services  (Molnar,  1972.  p.  6). 


Defi  ni  tions 

What  is  a  currently  acceptable  definition  of  a  management  infonnation 

system  (MIS)?    According  to  Kennevan  (1970), 

A  management  information  system  is  an  organized 
method  of  providing  past,  present  and  projection 
information  relating  to  internal  operations  and 
external  intelligence.    It  supports  the  planning, 
control  and  operational  functions  of  an  organization 
by  furnishing  uniform  information  in  the  proper 
timeframe  to  assist  the  decision-making  process, 
(p.  63) 

From  a  miore  detailed  perspective,  Teichroew  and  Sayani  (1971)  stated 
that 

an  "information  system"  consists  of  two  subsystems; 
a  management  system  and  an  information  processing 
system.    The  management  system  consists  of  the 
organization,  its  objectives,    the  individuals  or 
groups  in  it  and  the  rules  and  procedures  under  which 
they  work.    The  information  processing  system  is  the 
subsystem  which  consists  of  hardware,  programs,  non- 
computerized procedures,  etc.,  that  accomplish  the 
storage,  processing  and  communication  of  information 
necessary  for  the  functioning  of  the  management  system. 
An  essential  element  in  this  view  is  that  the  infor- 
mation processing  system  (IPS)  must,  or  at  least 
should,  be  designed  to  serve  the  management  system, 
(p.  25) 

Thus,  a  management  information  system  can  be  differentiated  fv^om  a  general 
"information  system"  by  the  fact  that  it  "organizes  data  into  meaningful 
reports  that  are  designed  to  fulfill  defined  information  needs  for 
management"  (Mathews  et  al . ,  1972,  p.  4), 

Although  the  words  "information"  and  "data"  are  often  used  inter- 
changeably, d  distinction  can  be  made  between  them.    Data  are  unrelated 
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and  uninterpreted  facts,  wherGas  information  is  obtained  by  organizing 
and  analyzing  data  into  a  useful  fonn  which  increases  knowledge  (Levin, 
1956). 

Development  of  Infonnacion  Systems  in  Education 

Va.'i  Dusseldorp  (1071)  noted  that  the  development  of  computerized 
information  systems  in  education  has  moved  through  four  observable 
apprxDachcs  since  the  mid  1950s.    First  was  the  applications  approach. 
Separate  applications  usually  of  a  clerical  nature,  such  as  payroll, 
school  scheduling,  and  grade  reporting,  were  computerized.    Second  came 
the  integrated  systems  approach.    In  order  to  integrate  information  from 
various  applications,  many  data  elements  had  to  be  redefined  ar.d  coded 
according  to  another  system.    Third  was  the  total  systems  approach. 
Initially,  all  Information  needed  by  the  educational  agency  was  defined. 
Duplication  was  avoided  since  data  were  gathered,  stored,  and  processed 
through  a  central  system.    The  fourth  approach  was  the  management  infor- 
mation system.    Here,  the  primary  emphasis  is  to  develop  systems  which 
provide  the  inforiiiation  needed  by  management  for  control,  decision  making, 
and  planning.    In  addition,  these  systems 

provide  educational  research  with  a  vehicle  for 
better  identifying  the  more  significant  and 
critical  areas  requiring  the  attention  of  the 
educational  research  conimunity  as  well  as  a 
considerably  expanded  data  base  upon  which  to 
draw  for  their  research  efforts.    (Lawrence  et 
a! . ,  1971  ,  p.  296) 

Management  information  systems  must  be  of  a  dynamic  nature  since 

they  operate  in  the  real  world.    According  to  Hayman  (1974),  this 

environment  has  certain  effects  on  the  system. 
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1)    It  turn?;  out  in  practice  that  initial  HIS 
development  never  results  in  outputs  whicn  fully 
meet  decision  needs,  so  that  long-term  develop- 
mental activity  (an  evolutionary  approach)  is 
essential;  2)  organizational  needs  and  functions 
change  over  time,  and  the  MIS  must  change  with 
them;  3)  technology  changes,  and  the  system  must 
be  updated,    (p,  63) 

Management  Information  Systems 

Management  information  systems  have  been  developed  at  all  levels 
of  education  from  the  elementary  school  classroom  to  the  university. 
These  systems  can  be  classified  into  two  general  categories:  "limited 
purpose"  management  information  systems  whose  entire  scope  of  operation 
is  coninned  to  student  records  ar,d  "general  purpose"  management  infor- 
mation systems  whose  scope  of  operation  usually  includes  student  data, 
personnel  data,  facilities  data,  program  data,  and  financial  data.  User 
needs  dictate  the  type  of  system  which  is  developed. 

Development  of  "limited  purpose"  management  information  systems 
often  appears  to  be  related  to  individualized  instruction.    Hansen  and 
Wdrvey  (i970)  describe  a  pattern  of  computer  development  in  the  public 
schools  which  closely  parallels  this  development  process.    An  initial 
commitment  to  individualized  instruction  is  followed  by  the  development 
of  individually  prescribed  instruction  (IPI).    Then  management  systems 
are  developed  to  keep  track  of  student  progress. 

The  literature  is  thoroughly  documented  with  descriptions  of 
"limited  purpose"  systems.    At  the  elementary  and  secondary  school  levels, 
these  system,s  have  not  often  been  developed  on  their  own.    Rather,  they 
are  usually  subsumed  under  the  operation  of  computer  managed  instruction 
(CMI).    CM!  is  more  inclusive  sincu  in  addition  to  reporting,  it  includes 
test  scoring,  diagnosis,  and  prescription  (Baker,  1971). 
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Indiviciually  Prescribed  Instruction  (iPI),  which  was  developed  at 
the  Learning  Research  and  Development  Center  (LRDC)  at  the  University  of 
Pittsburgh  by  Cooley  and  Glaser,  adapts  instructional  practices  to 
individual  requirements.    According  to  the  rnodel  for  IPI, 

1.  The  goals  of  learning  are  specified  in  terms  of 
observable  student  behavior  and  the  conditions 
under  which  this  behavior  is  to  be  exercised. 

2.  Diagnosis  is  made  of  the  initial  capabilities 
with  v/hich  the  learner  begins  a  particular  course 
of  instruction.    The  capabilities  that  are  assessed 
are  those  relevant  to  the  forthcoming  instruction. 

3.  Educational  alternatives  adaptive  to  the  initial 
profile  of  the  student  are  presented  to  him.  The 
student  selects  or  is  assigned  one  of  these  alter- 
natives. 

4.  Student  performance  is  monitored  and  continuously 
assessed  as  the  student  proceeds  to  learn. 

5.  Instruction  proceeds  as  a  function  of  the  relation- 
ship between  measures  of  student  performance,  avail- 
able instructional  alternatives,  and  criteria  of 
competence. 

6.  As  instruction  proceeds,  data  are  generated  for 
monitoring  and  improving  the  instructional  system. 
(1968,  pp.  2-3) 

Initial  opevation  of  IPI  was  nonautomated.    A  management  and 
information  system  (IPI/MIS),  whose  design  was  based  on  the  needs  of 
the  staff,  was  later  developed.    The  four  major  functions  of  this  system 
are  to  "(1)  collect  data;  (2)  monitor  student  progress;  (3)  pv^ovide  pre- 
scription information;  (4)  diagnose  student,  difficulty"  (Cooley  and  Glaser, 
p.  17). 

Another  system  very  similar  to  IPI/MIS  is  the  Instructional 
Management  System  (IMS)  which  was  developed  jointly  by  the  Systems 
Development  Corporation  and  the  Southwest  Regional  Laboratory  for  Educa- 
tional Research  and  Development.    This  system  was  designed  to  "help  the 
teacher  monitor  the  progress  of  her  pupils  and  make  decisions  on  the  pace 
of  instruct-"on,  the  grouping  of  children,  the  sequence  of  lessens  and 
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the  individual  izatioTi  of  instruction''  (Geddes  and  Kooi ,  1969,  p.  337). 

Students  are  tested  once  or  twice  a  v/sek;  results  are  processed  by  an 

optical  scanner;  and  copiputer  generated  reports  are  given  to  the  teacher. 

Other  reports,  such  as'  weekly  summaries,  are  also  provided  (Geddes  and 

Kooi,  1969;  Silberman,  1969).' 

Project  PLAN,  Program  for  Learning  in  Accordance  with  Needs,  v/as 

developed  jointly  by  the  American  Institute  for  Research  and  Westinghouse 

Learning  Corporation.    In  the  PLAN  system,  described  by  Flanagan  (1970), 

the  dailv  processing  and  weekly  status  reports  con- 
stitute the  tactics  of  the  interaction  of  the  student 
and  teacher  with  the  computer.    .  .  . 

The  major  strategy  of  the  PLAN  educational  system 
is  related  to  the  guidance  and  individual  planning 
functions,  the  program  of  studies,  and  the  analysis 
of  students'  results  on  the  module  and  achievement 
tests.    These  aspects  are  also  heavily  dependent  on 
the  computer,  primarily  for  doing  scoring, recordkeeping, 
matching,  and  making  predictions  and  indicating  prob- 
abilities.   The  computer  thus  becomes  a  very  valuable 
resource  for  the  teacher  and  student  in  planning  and 
guiding  the  student's  educational  program,    (p.  15) 

A  system^  more  limited  than  those  previously  described,  called 
COMPUTRAC  was  developed  at  Florida  State  University  to  help  teachers  in 
monitoring  student  classroom  performance.    Daily  input  into  the  system 
is  used  to  produce  a  v/eekly  cumulative  summary  of  each  student's  progress 
This  helps  the  teacher  determine  students  needing  attention.    The  six- 
week  class  progress  file  and  bi --yearly  analysis  of  performance  on  objec- 
tives are  used  to  identify  ineffective  learning  routines  (Healy,  1971). 

The  preceding  projects  demonstrated  the  use  of  "limited  purpose" 
management  information  systems  in  public  schools..  Attention  is  now 
directed  toward  licerature  which  documents  the  use  of  this  type  of 
system  in  higher  education. 

The  School  of  Engineering  at  the  University  of  Pittsburgh  developed 
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a  computerized  infonnation  system  to  provide  answers  to  questions  about 
students  in  the  school.    The  data  'od.se  for  this  system  is  quite  broad. 
It  is  used  to  generate:    academic  status  statistics,  student  profile 
inquiries,  student  registration  advisory  reports,  enrollnient  statistics, 
physical  plant  utilization  reports,  and  statistical  analyses  of  various 
iterr.s  in  the  data  base  (Holzman  and  Turksen,  1971). 

Adoption  of  a  multidimensional  approach  to  student  evaluation  by 
the  University  of  Tennessee  College  of  Medicine  necessitated  the  develop- 
ment of  a  computerized  student  evaluation  system  to  generate  current  and 
accurate  reports  about  student  progress.    Stofanu  and  others  (1975)  gave 
a  brief  description  of  the  system. 

A  comprehensive  current  record  of  every  student's 
performance  is  readily  available  to  those  faculty 
members  responsible  for  guiding  the  prospective 
physician  or  making  decisions  concerning  their 
program  advancement.    The  multiphasic  evaluations 
recorded  by  each  course  director  and  compiled  as 
part  of  the  report-generating  model  facilitate  the 
identification  of  problem  areas  as  well  as  strong 
points  exnibited  by  the  students  in  their  work  at 
the  Medical  Units.    Also,  immediate  feedback  is 
given  to  the  students  concerning  the  evaluations 
which  they  receive  from  their  instructors.  The 
prospective  physicians  then  have  the  means  to 
determine  their  own  progress  and  make  adjustments 
necessary  to  improve  Doth  their  academic  and  pro- 
.  fessiona''  status,    (p.  203) 

As  nientioned  earlier,  "genar^al  purpose"  management  information 

systems  have  also  been  developed.    Although  these  systems  go  beyond  the 

scope  of  the  current  study,  they  often  do  include  features  which  can  be 

incorporated  into  "limited  purpose"  systems.    The  literature  which  is 

reported  on  "general  purpose"  management  information  systems  documents 

the  fact  that  there  is  a  national  concern  for  the  development  of  such 

systems  to  aid  decision  making. 
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PMIS,  a  Planning  and  Management  Infomation  System^  was  a  project 
of  the  Council  of  Great  City  Schools.  The  complete  self-contained  system 
v/hich  was  developed  "has  its  own  data  structures,  data  loading,  editing 
and  modification  software,  its  own  query  languages,  and  detailed  speci- 
fications for  use  and  application"  (Fiddleman  and  Gomian,  1972,  p.  89). 
The  design  of  the  systeni  was  described  by  Fiddleman  and  Gorman. 

PfllS  is  composed  of  four  intery^elated  subsystems. 
The  data  bases,  the  focal  point  of  the  PMIS  design, 
are  contained  in  the  Data  Base  Subsystem.    They  are 
created  and  maintained  i:h rough  procedures  in  the  Data 
Acquisition  Subsystem,  and  are  utilized  in  the  Reports 
Subsystem  which  is  the  retrieval  mechanism  for  PMIS. 
The  final  subsystem,  Operational  Control,  provides  an 
overall  monitoring  function  to  PMIS  with  its  output 
as  a  complete  log  of  PMIS  activities,    (p.  84) 

PMIS  also  "provides  an  advanced  tool  based  on  technology  to  assist  local 
school  districts  improve  their  efforts  in  long  range  planning,  compre- 
hensive evaluations,  management  oriented  functions  and  general  reporting" 
(Fiddleman  and  Gorman,  p.  89). 

COLPAS.  College  Planning  and  Analysis  System,  v/as  developed  by  the 
College  of  Business  Administration  at  the  University  of  Houston  to  aid 
its  planning  activities.    This  system's  primary  components  are  the 
administrative  and  academic  information  systems. 

One  subsystem  is  the  Undergraduate  Student  Information  System.  The 
system  is 

To  be  used  as  a  course  advising  tool  on  a  semester-by- 
sem.es ter  basis. 

To  prepare  the  official  degree  plan  for  each  student 
which  would  show  him  the  course'^;  for  which  he  had 
been  given  credit  and  those  which  were  required  to 
complete  his  degree,  and 

To  be  able  to  certify  that  a  student  had  completed  all 
course  requirements  for  graduation  and  had  the 
proper  grade  point  average  overall  in  his  major 
field.    (Vitulli  and  Singleton,  1972,  p.  496) 
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Many  other  collages  have  developed  nidragement  information  systems. 
A  system  which  is  somewhat  different  was  developed  by  tlie  School  of  Social 
Work  at  Michigan  State  University  using  the  UOEANS  method.    This  method 
"uses  a  computer-based  Information  system  to  store  data  relevant  to  re- 
source management  and  prepare  useful  reports  for  decision  making  by  the 
conmunity,  the  faculty,  and  the  students"  (Vinsonhaler  et  al , ,  1971,  p. 
33).    It  -'s  unique  since  it  maintains  attitudinal  data  for  faculty  and 
students;  and  provides  management  reports  to  students  as  well  as  faculty 
and  administrators.    One  management  report  of  particular  interest  is  the 
Student  Program  Guide  which  consists  of  three  parts: 

first,  a  report  is  automatically  produced  if  a  student 
is  not  adequately  meeting  his  program;  the  second  and 
third  parts  of  the  Student  Program  Guide  are  courses 
and  faculty  ordered  by  Interests  in  common  with  the 
student.    These  reports  aid  a  student  in  planning  his 
program  of  study  according  to  his  interests.  (Vinson- 
haler Gt  al . ,  p.  34) 

A  program  to  encourage  the  development  of  management  information 

systems  within  institutions  of  higher  education  was  undertaken  by  the 

Western  Interstate  Comm,ission  for  Higher  Education  (WiCHE).    This  prograin 

called  for  the  development  and  imolementation  of 
compatible  data  bases  including  standard  data 
elements  and  standard  proceduy^es,  formulas,  and 
models,  in  order  to  facilitate  the  exchange  of 
comparable  information  among  institutions  of  higher 
education  and,  further,  to  improve  reporting  to  the 
state  and  federal  levels.    (Lawrence,  1969,  p.  110) 

In  addition,  the  program  was  also  concerned  with  the  collection,  storage, 

retrieval,  and  analysis  of  data  in  various  operating  systems  such  as  the 

student  information  system,  the  accounting  system,  and  the  payroll  system. 

"In  order  to  recognize  the  national  character  of  the  program  and  to 

stablize  the  funding  of  its  activities"  (Lawrence  and  Gulko,  1972,  p.  45), 

the  National  Center  for  Higher  Education  Management  Systems  (NCHEHS), 
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which  is  housed  within  the  Western  Interstate  Commission  for  Higher 

Education,  was  developGcJ  in  mid  1971.    As  described  by  Lawrence  and  Gulko, 

The  purpose  of  NCIIEMS  is  to  promote  the  development 
of  various  aids  to  more  knowledgeable  resource  alloca- 
tion within  institutions  and  agencies  of  higher  educa- 
tion.   Its  activities'  are  concerned  with  establishing 
a  preliminary  set  of  coirjnon  data  elements,  program 
elements,  a  program  classification  structure,  and 
program  measures.    The  Center  is  also  concerned  with 
designing  and  implementing  compatible  management 
systems  Uiat  will  provide  uniform  data  from  which  the 
cost  of  instructional  programs  by  level  of  course, 
level  of  student,  and  field  of  study  can  be  derived, 
(p.  49) 

The  preceding  literature  documents  that  management  information 
systems  have  been  developed  to  facilitate  educational  programs  at  all 
levels.    Notably  lacking  from  this  discussion  has  been  the  development 
of  such  systems  in  colleges  of  education. 

Since  the  late  1960s  there  has  been  a  "national  movement  toward 
competency  based  instruction  and  individualization  in  teacher  training 
courses"  (Hayman  and  Mable,  1974,  p.  60).    iN'umerous  institutions  which 
have  implemented  such  courses  have  developed  management  information 
systems  to  provide  backup  support  for  vital  decision  making. 

The  Ccmrield  model  for  teacher  education  developed  by  the  Northwest 
Regional  Educational  Laboratory  "specifies  that  'instructional  systems' 
will  be  employed  to  bring  about  professional  competencies  and  their 
personcilization;  tiiat  instruction  within  these  systems  will  be  individ- 
ualized. .  . ;  and  that  a  computer  based  management  information  system 
will  be  used  to  handle  the  frequent  and  diverse  demands  upon  information" 
(Schalock,  1968,  p.  2).    The  management  information  system  consists  of 
three  logically  interrelated  files;  the  staff  resource  file,  the  student 
file,  and  the  instructional  system  file  (Coffin,  1968).    It  is  capable 
of  handling  the  following  tasks: 


18 


"i.    Collect  and  store  infomsation  on  student  performance  and 
student  expectancies. 

2.  Provide  the  instructional  staff  vn'th  information  displays 
that  identify  students  v/ho  are  having  trouble. 

3.  Order  information  about  student  needs  so  that  instructional 
personnel  can  devote  time  to  the  most  pressing  problems. 

4.  Develop  real  time  information  for  scheduling  resources  on 
a  day-to-day  basis  so  that  they  can  be  used  in  the  most 
efficient  manner. 

5.  Store  and  com.pile  instructional  system  data  for  program 
effectiveness,  appropriateness,  and  impact. 

6.  Combine  information  on  student  selection  and  retention 
characteristics. 

7.  Coiiipile  data  about  existing  and  planned  acquisitions  of 
resources  to  determine  short-  and  long-range  needs. 

(Hamreus,  1968,  p.  120) 

Adoption  of  a  competency  based  program  by  vocational  and  applied 
arts  education  at  Wayne  State  University  provided  impetus  for  the  develop- 
ment of  a  management  information  system.    The  "purpose  of  the  VAE  Manage- 
mnt  Information  Syste^n  is  to  select,  store,  process  and  transmit  infor- 
mation to  the  faculty  and  students  at  a  time  when  it  can  ir-ost  effectively 
be  used,  enabling  them  to  make  more  knowledgeable  decisions"  (Neuhauser, 
1974.,  p.  1). 

The  data  bank  is  composed  of  four  computerzied  files.    The  Master 
Student  File  consists  of  data  obtained  by  coniputer  from  the  university 
regis  oration  tapes.    Data  about  each  objective  in  the  program  are  con- 
tained in  the  Course  Objective  and  Parameter  File.    The  Program  Evaluation 
File  contains  a  record  on  the  completion  of  objectives  by  each  student. 
Upon  graduation,  data  from  the  students'  Master  Student  File  and  Program 
Evaluation  File  are  entered  into  the  Follow-up  File  (Neuhauser,  1975). 

Since  "successful  management  of  a  CBTE  program  depends  upon  the 
regular  collection  of  data  from  all  those  affected  by  the  program" 
(Gentry  and  Jurs,  p.  7),  the  computerized  assessment  and  revision  com- 
ponent of  the  CBTE  program  at  the  University  of  Toledo  was  developed. 
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The  purposes  of  this  compcnent  are  to  provide:  a  permanent  record  of 
individual  performance  of  CBTE  objectives,  a  record  of  the  performance 
of  groups  of  students  on  each  objective  and  evaluation  data. 

Feedback  from  the  system  is  provided  to  administrators,  faculty, 
and  students.    Each  student's  advisor  receives  a  report  at  least  once 
a  week  which  is  used  to  determine  recycling  strategy  and  individualized 
sequencing.    When  a  sufficient  number  of  students  have  completed  a  module, 
a  module  revision  report  is  generated.    Such  data  give  an  indication  of 
the  effectiveness  of  instruction. 

At  Illinois  State  University  the  Surveillance  system  keeps  track 
of  students  as  they  pyxsgrcss  through  the  self-paced,  competency  based 
program  in  secondary  education.    Each  student  receives  a  weekly  print- 
out which  serves  as  an  official  record  of  their  progress  in  th-r;  com- 
pletion of  self-instructional  packages.    From  this  printout  advisors 
are  "able  to  detect  any  emerging  pattern  which  can  be  altered  to 
facilitate  the  stude;Tt's  learning  progress"  (Lorber,  1973,  p.  6). 

Data  provided  from  other  programs  serve  as  a  basis  for  decisions  • 
concerning  the  rewriting  of  packages  and  revision  of  merit  weights 
and  learning  activities.    Additional  data  such  as  the  names  of  students 
who  have  completed  all  required  packages  prior  to  student  teaching  and 
the  number  of  advisees  ...ssigned  to  each  advisor  are  also  provided. 

The  preceding  systems  were  chosen  as  a  representative  sample  of 
management  information  systems  developed  for  CBTE  programs.    Of  course, 
management  information  systems  have  also  been  developed  for  traditional 
time-based  teacher  education  programs. 

At  Florida  State  University  "the  lay-ge  number  of  students,  programs 
and  academic  indicators  which  must  be  monitored,  when  coupled  with  a 


20 


shrinking  resource  base  and  increased  demands  for  'accountability'"  (Bonar 
and  Dick,  1974,  p.  42)  necessitated  the  development  of  the  Student  Informa- 
tion Manariement  System  (SIMS).    Rebhun  and  others  (1974)  reported  a  pri- 
mary function  of  the  system  as 

that  of  providing  academic  pcrfonnance  data  to 
academic  advisors  for  students  participating  in 
■  the  undergraduate  teacher  education  program.  The 
system  incorporates  an  "early  warning  system"  for 
identifying  potential  academic  problems.  Various 
quarterly  student  progress  reports  are  distributed 
to  advisors.    Program  administrators  receive  a 
number  of  reports  summarizing  computer  checks  of 
student  records  and  progress  for  initial  and 
continuing  adherence  to  pre-set  program  standards. 
Secondary  and  tertiary  functions  of  the  system  are 
the  analysis  of  course  demand  to  facilitate  improved 
resource  allocations  and  the  structured  storing  of 
sufficient  student  biographical  and  performance 
data  to  actuate  institutional  research  in  teacher 
education,    (p.  20) 

It  is  possible  to  obtain  a  feeling  tor  the  breadth  of  this  system 

by  examining  reports  which  are  gonerdted.    Included  among  these  reports 

are  the  Entrance  Screening  Report,  the  Biographical  and  Academic  History 

Report,  the  Quarterly  Progress  Report  for  each  student,  the  Course 

Enrollment  Projection  Pepcrt,  the  iVeliminary  and  Final  Student  Teaching 

Screening  Reports,  and  the  Preliminary  and  Final  Graduation  Screening 

Reports. 


ljM§I!L%jj_'^J^"''^.^'^" based  Teacher  Education  Programs 

CEP  began  as  an  experimental  program  in  the  winter  of  1969.  The 
foundations  for  this  program  were  laid  at  least  as  early  as  1958  when 
Combs  and  Soper  unde-tock  a  series  of,  research  st.udies  on  the  characteris- 
tics of  effective  practitioners  in  the  helping  professions  (Combs  et  al., 
1969).    This  early  research  lead  to  a  series  of  studies  on  teacher 
effectiveness  at  the  University  of  Florida'  under  the  leadership  of  Arthur 
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Combs  and  at  the  University  of  Northern  Colorado  under  the  leadership  of 
Richard  Usher  (Usher  and  Hunke,  1971).    From  these  studies. Combs  developed 
a  theory  of  teacher  education  which  was  published  in  1965  in  The  Profes- 
sional Education  of  Teachers:  A  Perceptual  View  of  Teacher  Preparation. 

Hass  and  others  (197'1)  succinctly  outlined  the  development  of  CEP 
to  its  ciirrent  status  at  the  University  of  Florida  as  follov/s: 

a.  it  heg-m  in  twelve  years  of  basic  research  on  the  nature 
of  the  helping  professions,  especially  on  the  nature  of 
good  and  poor  teachers, 

b.  These  research  results  were  then  combined  with  modern 
thinking  from  perceptual -humanistic  psychology  to  formu- 
late a  theory  of  teacher  education. 

c.  This  theory  was  given  practical  expression  in  an  exper- 
imental program  designed  and  placed  in  operation  side 
by  side  with  a  traditional  one. 

d.  A  program  of  research  was  then  instituted  to  provide 
information  concerning  the  relative  effectiveness  of  the 
program.    And  finally, 

e.  the  experimental  program  was  adopted  by  the  department 
and  over  a  two-year  period  replaced  the  old  program. 

(Preface) 

The  major  assumptions  on  which  the  program  was  based  are  that  "a 
person  learns  best  when:    (1)  learning  is  made  personally  meaningful  and 
relevant,  (2)  learning  is  adjusted  to  the  rate  and  needs  of  the  individual, 
(3)  there  is  a  great  deal  of  self-direction,  and  (4)  there  is  a  close 
relationship  between  theory  and  practice"  (CEP,  1973,  p.  1). 

The  program,  which  has  been  described  in  many  articles  and  inhouse 
materials  (Cornbs  et  al . ,  1965;  Blume,  1971;  Busby  et  al . ,  1972;  CEP,  1973), 
consists  of  three  main  parts:  seminar,  substantive  panel  and  field  exper- 
ience. 

Activities  in  the  program  center  around  the  seminar.    The  seminar 
provides  for  individual  evaluation,  counseling,  guidance,  and  discussion 
about  educational  theory  and  practice.    Students  remain  in  the  same 
seminar  for  their  entire  stay  in  the  program.    Because  of  the  strong 
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bonds  built  with  one's  seminar  leader  and  feilow  students,  it  is  here 
that  their  educatio/i  becomes  niost  humanistic  and  personal. 

The  substantive  panel  consists  of  faculty  members  from  different 
subject  areas.    Rather  than  completing  courses  in  these  areas,  students 
must  demonstrate  competence  in  each  area  by  completing  learning  activities 
designed  in  pdrl  by  the  faculty  and  in  part  by  students.    Certain  activi- 
ties are  required  while  others  are  optional.    Students  may  negotiate  to 
replace  both  required  and  optional  activities  by  competencies  of  their 
own  design. 

iJpon  entrance  in  the  program,  students  are  continuously  involved 
in  some  type  of  field  experience.    As  they  progress  through  the  various 
levels  of  fiald  experience,  their  responsibilities  and  time  spent  in 
the  school  increase. 

A  recent  study  concerning  CEP  oy  Webb  and  Guinagh  used  a  question- 
naire, which  was  administered  to  two  hundred  and  four  students  from  two 
teams,  to  examine  various  aspects  of  the  program.    Webb  and  Guinagh  (1975) 
cited  the  following  strengths  of  the  program: 

1.  T[ie  loyalty  and  enthusiasni  the  CEP  program  engenders 
in  students,  especially  those  who  fall  on  the  most 
positive  end  of  the  satisfaction  continuum. 

2.  The  fact  that  the  81.4  percent  of  students  indicated 
a  growth  in  their  sense  of  responsibility  since 
joining  the  program. 

3.  The  high  degree  of  student  satisfaction  regarding 
seminars . 

4.  The  general  belief  among  students  that  learning 
activities  and  substantive  areas  are  doing  an 
adequate  to  outstanding  job  in  preparing  them  for 
a  career  in  teaching. 

5.  The  near  universal  enthusiasm  regarding  the  field 
experience. 

6.  The  impressive  number  of  students  indicating  that 
many  siibstantive  areas  and  the  CflP  experience  in 
general  have  helped  them  to  develop  a  positive  self 
concept. 
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7.  The  fact  that  the  amount  of  student  cheating  in  CEP 
seems  to  be  substantially  lower  than  is  found  in 
other  college  programs. 

8.  The  fact  that  students  seem  to  spend  a  good  deal  of 
time  learning  from  and  with  one  another. 

9.  The  fact  that  most  students  believe  they  have  the 
power  to  make  changes  in  CEP.    (p.  50-51) 

In  addition,  the  following  weaknesses  of  the  program  were  cited: 

1.  The  fact  that  so  few  stiidents  engage  in  learning 
activities  out  of  what  they  define  as  "a  need  to 
know. " 

2.  The  fact  that  over  half  of  the  students  interviewed 
indicated  that  they  spent  three  hours  or  less  per 
week  in  contact  with  faculty  on  substantive  area 
work. 

3.  The  apparent  lack  of  connection  between  field  work 
and  substantive  area  concerns. 

4.  The  generally  inadequate  way  in  which  students  are 
introduced  into  the  Childhood  Education  Program. 

5.  The  failure  of  community  sessions  to  aid  in  developing 
a  sense  of  community. 

6.  The  fact  that  students  tend  to  prefer  a  more  tra- 
ditional program  cf  teacher  preparatioti  v/hich  incor- 
porates work  in  the  schools. 

7.  The  large  percentage  of  students  who  indicate  un- 
certainty as  to  whether  or  not  the  faculty  is  doing 
an  adequate  job  and  who  indicate  that  it  is  difficult 
to  locate  and  talk  with  professors.    (Webb  and  Giiinagh, 

p.  50) 

These  findings  indicate  that  there  is  room  for  improvement  in  the  prograin. 

Many  facts  about  the  program  which  are  relevant  to  the  current 

study  were  presented  in  a  recent  discussion  of  CEP  as  an  alternative 

approach  to  CBTE  by  Combs  and  Kinzer  (1974).    Since  the  program  is 

"constantly  involved  in  an  ongoing  experiment  in  curriculum  development 

and  teacher  education"  (Combs  and  Kinzer,  p.  ;88)  it  cannot  be  rigid. 

Combs  and  Kinzer  stated: 

Faculty  and  students  together  are  involved  in  a 
continual  search  for  ways  to  improve  (1)  our  data 
collection  procedures;  (2)  our  program  organization; 
(3)  collaboration  between  public  schools  and  univer- 
sities; and  (4)  our  identification  of  program  goals, 
implementation,  and  evaluation,    (p.  188) 
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Faculty  and  students  also  "fear  that  increased  specificity  or  explicitness 
will  bring  (}bout  rigidity  or  at  least  reduced  flexibility"  (Combs  and 
Kinzer,  p.  188)  in  the  prograiii. 

The  preceding  review  of  the  literature  has  centered  on  the  areas 
of  manageinent  information  systems  and  humanistic  field-based  teacher 
education  programs.    Attention  is  now  focused  on  the  managenKnt  system 
■which  is  currently  used  by  CEP. 

Description  of  the  Current  Management  System 

The  current  management  system  consists  of  four  major  parts:  the 
team  office,  the  seminar  leaders,  the  substantive  panel  member?.,  and 
the  Undergraduate  Office  in  the  College  of  Education.    Since  each  part 
maintains  separate  records  on  students,  duplication  of  data  exists  between 
and  among  the  various  parts. 

The  team  office  processes  all  students  who  are  in  the  team.  Initially, 
students  are  assigned  to  the  team  by  the  Undergraduate  Office.  During 
the  week  prior  to  the  beginning  of  the  quarter,  the  tear,:  leader  assigns 
each  new  student  to  a  seminar  whf^re  with  rare  exception  he  is  to  remain 
for  his  entire  stay  in  the  program.    Within  this  same  time  period,  this 
office  must  provide  ?.cademic  counseling  for  new  students.  Consequently 
when  there  are  a  large  number  of  new  students,  the  situation  in  the  team 
office  becomes  rather  hectic. 

At  the  beginning  of  each  quarter,  seminar  leaders  send  the  names 
and  local  addresses  of  the  members  of. their  seminar  to  the  team  office. 
This  information  is  used  to  produce  the  team  list  and  student  roster 
which  are  made  available  to  all  members  of  the  team. 

Other  activities  are  coordinated  by  the  team  office.    For  instance, 
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it  supervises  the  effort  in  checking  that  upcoming  graduates  have  met 
all  program  requirements  and  students  going  into  their  intensive  have 
fewer  than  six  learning  activities  to  complete. 

Seminar  leaders  'maintain  detailed  records  on  the  progress  of  their 
students  in  terms  of  their  basic  personal  data,  registrations,  learning 
activities,  and  field  and  corrinunity  experiences.    It  is  not  unusual  to 
find  that  these  records  are  not  up  to  date.    Learning  activities  may  be 
missing,  registrations  may  be  either  missing  or  not  updated,  grades  from 
required  courses  may  not  be  recorded,  and  field  and  community  experience 
evaluations  may  also  be  missing. 

In  the  seminar  which  v/as  observed,  part  of  the  problem  associated 
with  unrecorded  learning  activities  may  be  related  to  the  policy  of 
holding  students  responsible  for  recording  completed  activities  on  their 
program  record.    All  learning  activity  slips  except  for  the  final  eval- 
uations were  not  to  be  filed  in  the  seminar  office,  rather  students 
were  instructed  to  keep  them  at  home.    At  the  end  of  each  quarter  when 
student  progress  must  be  assessed,  an  inaccurate  record  of  what  has 
been  completed  may  create  difficulties. 

Incorrect  registrations  are  probably  caused  by  failure  to  change 
the  program  record  when  a  student  either  drops  or  adds  a  course.  This 
may  result  in  difficulties  wr<en  checking  both  the  completion  of  required 
courses  and  the  number  of  credit  hours  needed  for  graduation.  Fortunately, 
seminar  leaders  iiiay  use  the  student's  permanent  record  from  the  Under- 
graduate Office  to  update  missing  or  inaccurate  data,  but  this  is  a 
rather  time  consuming  operation.    At  periodic  intervals  seminar  leaders 
are  requested  to  update  the  planned  program,  which  is  maintained  by  this 
office,  for  each  of  their  students. 
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Eacli  substantive  panel  inember  maintains  a  record  for  each  of  his 
students.    There  is  a  wide  variety  in  the  amount  and  kinds  of  data  which 
are  contained  in  those  records.    Some  faculty  merely  have  a  file  card 
with  the  student's  name,  the  activity  number  and  title,  the  date  the 
activity  was  completed,  and  perhaps  a  few  comments.    Other  faculty  members 
maintain  a  detailed  record  of  the  workshops  and  help  sessions  attended, 

•   •  • 

all  learning  activities  which  are  submitted,  and  general  information  about 
the  student's  academic  progress.    Still  other  faculty  members  retain 
copies  of  all  learning  activity  slips  and  general  coinnents  about  student 
progress.    Although  detailed  records  are  helpful  to  the  faculty,  they  are 
quite  time  consuming  to  maintain.    Consequently,  the  type  of  record- 
keeping system  which  is  used  is  a  matter  of  personal  preference  and 
efficiency.    Unfortunately,  brief  and  possibly  inaccurate  faculty  records 
of  student  progress  may  result  in  problems  since  students  work  at  their 
own  rate  and  the  requirements  have  a  tendency  to  change  from  quarter  to 
quarter  and  instructor  to  instructor. 

Most  substantive  panel  members  have  little  knowledge  about  their 
student's  progress  in  other  areas.    Such  limited  knowledge  may  be  an 
obstacle  in  working  with  students.    The  only  way  to  obtain  valid  infor- 
mation about  a  student's  progress  in  other  areas  is  to  contact  the  seminar 
leader  or  other  substantive  panel  members. 

Learning  activities  are  submitted  to  the  correct  substantive  panel 
member.    At  times,  faculty  members  in  one  substantive  area  work  together. 
Consequently,  different  faculty  members  may  be  assessing  one  student's 
progress.    In  most  cases  assessed  activities  are  sent  to  a  central  loca- 
tion where  students  obtain  the  learning  activity  and  the  learning  activity 
slip.    If  the  learning  activity  is  acceptable,  the  student  must  then  go"to 
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hio  seminar  I  radar's  office  ard  record  it  in  his  program  record.  Some 
seniin<?.r  leaders  want  all  of  the  student's  learning  activity  slips  in  their 
folders  v/hile  others  only  want  the  final  evaluations  in  each  substantive 
area. 

Seminar  leaders  rely  on  obtaining  information  from  the  Undergraduate 
Office  which  maintains  a  permanent  record  on  each  undergraduate  student 
in  the  College  of  liducation.    The  record -keeping  system  used  by  this 
office  •"■s  quite  complicated  since  the  degree  of  completion  of  the  personal 
data  sheet  and  registration  activity  status  determine  where  the  student's 
permanent  record  may  be  found  in  the  office.    Sometimes  these  records  are 
missing.    Because  of  the  treinendous  demands  placed  on  this  office,  grade 
slips  from  the  previous  quarter  and  current  registr'iticn  slips  are  not 
always  proii.ptly  filed.    Thus  problems  may  arise  when  seminar  leaders 
need  readily  accessible  and  accurate  information  about  their  students. 


CHAPTER  HI 
PROCEDURE 

Overview 

Van  Djsseldorp  (1969,  1971)  dofined  the  steps  in  the  development  of 
an  inforriStion  systiin.    These  steps  vjere  altered  to  meet  the  problein  under 
consideration.    As  a  result,  the  following  steps  were  identified: 

:.    Specify  the  goals  and  objectives  of  the  system. 

2.  Develop  tiie  system. 

3.  Test  the  system. 

4.  Revise  the  system. 

5.  Evaluate  the  system. 

Tne  development  procedure  is  described  in  terms  of  these  steps. 

Specify  the  Goals  a. id  Objectives  of  the  System 

Perhaps  the  most  difficult  and  important  step  in  the  development 
of  the  computer-based  management  information  system  was  to  specify  the 
goals  and  objectives  of  the  system.    A  basic  understanding  of  the  program 
was  essential.    Consequently  an  initial  step  was  to  review  published  and 
in  house  materials  about  CEP  (e.g.,  Combs  et  al . ,  1965;  Blunie,  1971; 
Busby  et  al . ,  1972;  CEP,  1973). 

Subsequently  the  team  leader  of  the  team  vvhich  was  to  servo  as  the 
model  was  contacted.    General  information  was  obtained  about  CFP,  this 
team,  and  the  current  management  system  used  by  the  team.    Copies  of  the 
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various  fanns  used  for  stucie.it  record  keeping  and  reports  generated  by 
the  tean  were  also  procured. 

In  order  to  obtain  a  more  thorough  understanding  of  CEP  and  the 
model  team  in  particular,  r,he  various  phases  of  the  team's  program  were 
observed  for  one  quarter.    The  investigator  also  participated  whenever 
possible  in  both  seminar  and  community  session  activities. 

At  the  beginning  of  the  observation  period  it  became  apparent  that 
the  program  seemed  to  foster  an  open  atmosphere  in  v/hich  the  students 
felt  free  to  discuss  CEP.    Thus,  the  students'  likes,  dislikes,  concerns, 
and  problems  with  the  program  became  readily  apparent. 

During  the  later  part  of  this  observation  period  the  other  faculty 
members  on  the  team  v/ere  individually  interviewed.    In  order  to  orient 
them  to  the  problem  at  hand,  a  hypothetical  computer-based  management 
information  system  for  the  team  was  described.    Faculty  were  informed  of 
the  importance  of  their  input  into  the  system  being  developed  and  asked 
to  help  in  this  development  procedure.    Seminar  leaders  were  asked  to 
describe  the  kinds  of  records  they  kept  on  their  seminar,  the  problems 
associated  with  keeping  these  records,  and  other  types  of  information 
they  would  like  to  have  about  their  students.    Substantive  panel  members 
were  asked  to  describe  their  record-keeping  practices,  to  identify  the 
problems  associated  with  keeping  these  records,  to  suggest  other  types 
of  infoniiation  they  would  like  to  have  about  students,  and  to  specify  the 
current  requirements  for  learning  activities  in  their  substantive  a'rea. 

A  complete  description  of  the  current  management  system  and  the 
problems  inherent  to  this  system  were  discussed  in  Chapter  II. 

From  the  information  obtained  during  the  observation  period,  the 
goals  and  objectives  of  the  management  information  system  were  defined 
as  follows: 
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Goal:  The  system  win  provide  readily  accessible  and 

reliable  information  about  the  team  and  students 
in  it. 

Objectives:    Tlie  system  will  be  capable  of  generating  reports 
to  serve  the  faculty  in  decision  making  about 
team  policy  and  individual  students. 

The  system  will  keep  track  of  student  progress. 

The  system  will  have  a  broad  data  base  which  can 
be  used  for  research  and  program  evaluation. 

The  system  will  be  capable  of  handling  the  fluid 
nature  of  CEP. 

Develop  the  System 

The  actual  development  of  the  system  was  broken  dcv/n  into  the 
following  activities:    specify  in  detail  the  data  to  be  kept  on  each 
student,  develop  the  software  using  PL/1 >  design  the  procedure  for  the 
collection  and  dissemination  of  information,  and  write  directions  on 
hew  to  use  the  system. 

An  initial  layout  of  a  student  record  was  constructed  using  the 
personal  data  sheet,  program  record,  field  experience  evaluation  and 
request  forms,  community  experience  evaluation  form,  learning  activity 
slip,  and  faculty  suggestions  as  a  guide.    The  team  leader  and  other 
individuals  concerned  with  CEP  made  suggestions  for  changes  in  the 
layout.    A  revised  layoit^  which  proved  satisfactory  to  all,  was  then 
constructed.    This  revised  layout  is  the  structure  PERSONAL  (Appendix 
C)  which  is  included  in  each  program  in  the  system. 

Most  data  in  the  student  record  were  to  be  recorded  in  coded  form. 
Uncoding  was  done  by  using  dictionaries  of  the  item  names  and  associated 
codes.    Some  dictionaries  whicii  were  developed  were  straightforward  and 
easy  to  construct  since  there  was  a  clearly  defined  set  of  possibilities. 
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Other  dictionarTes  associated  with  the  community  experience,  field  ex- 
perience, and  learning  activities  were  more  difficult  to  construct  since 
they  v,'ere  not  clearly  defined. 

The  more  abstruse  dictionaries  'were  developed  in  several  stages. 
First,  old  student  records  were  examined  to  find  various  possibilities 
for  each  item.    Sample  dictionaries  were  then  constructed  and  examined 
by  the  team  office  to  correct  ambiguous  wording,  eliminate  duplicate 
entries,  and  include  omissions.    Later,  these  updated  dictionaries  were 
examined  by  other  personnel  in  the  team  office  for  further  corrections. 

An  attempt  was  made  to  make  the  length  of  data  items  not  recorded 
in  coded  form  compatible  with  the  Data  Element  Dictionary  for  Student 
Information  used  by  Florida's  Comm:Unity  Colleges  and  the  status  record 
layout  used  by  Administrative  Computing  Services  at  the  University  of 
Florida.    In  cases  of  disparity  between  the  lengths,  that  length  which 
more  closely  characterized  the  data  in  the  current  management  system  was 
chosen.    Still  other  changes  were  made  in  light  of  typical  data  that 
existed  in  the  current  management  system. 

The  software  was  written  in  PL/1  over  a  period  of  months.  Each 
program  in  the  system  was  to  perform  a  specific  function.    Initial  pro- 
grams in  the  system  were  written  and  debugged  solely  using  card  input. 
The  output  generated  by  these  programs  was  checked,  altered  if  necessary, 
and  finally  approved  by  the  team  office  for  form  and  clarity.    Once  all 
of  these  initial  programs  were  operating  satisfactorily,  they  were  con- 
verted to  use  tape  input  and  output  of  student  records. 

The  field  experience  request  form  was  rather  antiquated  since  it 
was  designed  us^ng  the  student  internship  request  form  with  an  entirely 
different  program  as  a  model.    Consequently,  unnecessary  information  was 
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included  in  the  field  experience  request  form.    AlsOj  descriptions  of 
levels  in  Cf.P  wore  incomplete  and  no  longer  applicable.    The  team  could 
not  change  this  form  v/ithout  the  approval  of  the  Student  Teaching  Office 
which  serves  a'j  a  liaison  between  the  College  of  Education  and  local 
school  systems.    Personnel  in  this  office  felt  the  fonn  should  only  be 
revised  in  a  joint  effort  between  school  personnel,  the  college,  and 
the  team.    Because  of  the  local  school  schedule,  this  meeting  was  not 
held  until  a  few  weeks  before  the  system  test  was  to  begin.  Suggestions 
were  made  concerning  what  could  be  omitted  from  the  current  form.  Using 
suggestions  made  at  this  meeting,  the  field  request  form  was  then  revised 
A  program  was  then  written  to  generate  the  new  form. 

In  order  to  facilitate  the  entry  of  data  into  the  system,  it  was 
necessary  to  redesign  certain  current  forms  such  as  the  learning  activity 
slip  and  field  experience  evaluation  form.    New  fonns  were  designed  to 
enter  initial  data  into  the  system  and  to  request  printouts  using  specifi 
programs  in  the  system. 

A  users'  manual  (Appendix  D)  was  developed.    For  each  program  in 
the  system  there  is  a  description  of  the  following  items:  output 
description,  class  size,,  number  of  tape  drives,  DD  statements,  data  set- 
up, data  recording  or  request  form  if  applicable,  sample  data  deck,  and 
sample  output. 

Test  the  System  ' 

A  test  of  the  system  was  conducted  on  a  seminar  of  twenty-eight 
students  for  a  period  of  one  quarter.    Of  the  students  in  this  seminar 
nine  students  had  been  previously  enrolled  in  the  program;  nineteen  were 
new. 


33 


Prior  to  the  test  period  as  much  data  as  possible,  such  as  the 
student's  permanent  address,  previous  registrations,  colleges  attended, 
etc.,  v/ere  collected  from  the  records  of  previously  registered  students. 
Once  these  data  were  obtained  the  student  records  were  created  and  entered 
into  the  main  file  which  was  sorted  into  ascending  order  by  social  security 
number. 

At  the  beginning  of  the  quarter  the  previously  registered  students 
were  asked  to  list  the  courses  they  were  taking,  their  local  addresses 
and  phone  numbers.    In  addition,  they  were  requested  to  fill  out  a  form 
about  completed  learning  activities.    For  each  completed  activity  they 
were  co  list  the  area,  activity  number,  completion  date,  and  faculty 
member.    The  main  file  was  thin  updated  with  the  new  data  items. 

During  the  first  v/eek  of  the  quarter  new  students  were  asked  to 
list  their  basic  pers.onal  data  and  courses  they  were  taking.  Records 
for  the  new  students  containing  tfiese  data  were  created  and  added  to  the 
main  file  which  was  again  sorted.    Registration  information  was  then 
added  by  updating  the  main  file. 

At  the  first  team  meeting  of  the  quarter,  the  system  was  explained 
to  the  team,  samples  of  the  output  from  the  system  were  shown  to  the 
faculty,  and  they  v/ere  asked  to  use  the  revised  learning  activity  slip 
in  the  seminar  involved  in  the  test.    After  a  brief  discussion,  it  was 
agreed  that  the  revised  slip  would  be  used  in  that  seminar. 

The  use  of  the  computer-based  management  information  system  was 
explained  to  the  members  of  the  seminar  involved  in  the  test.  Students 
were  asked  to  help  in  the  test  of  the  system  by  using  the  revised 
learning  activity  slips.    The  new  procedure  for  handling  completed 
learning  activities  was  then  explained.    Each  student  was  given 
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approximately  tv/enty  to  thiri-y  blank  learning  activity  slips.    Tliey  were 
instructed  to  attach  one  slip,  with  the  upper  portion  filled  out,  to 
each  learning  activity  as  it  is  submitted. 

Since  the  current  management  system  could  not  be  disrupted,  it 
dictated  hov/  data  on  learning  activities  would  enter  the  system.  Sub- 
stantive panel  members  sent  the  activity  with  the  associated  learning 
activity  slip  to  a  central  location.    Students  picked  up  these  activities 
at  their  convenience  and  filed  the  slips  in  the  team  office.    During  the 
later  part  of  each  day,  student  folders  in  the  team  office  v/ere  checked. 
A  summary  was  made  of  the  data  on  all  returned  learning  activity  slips. 
The  activity  slips  v.'ere  then  placed  in  the  student's  permanent  folder. 
Cards  for  these  updates  were  punched.    The  main  file  then  was  updated 
sequentially  in  ascending  order  by  social  security  number.    If  no  faculty 
requests  were  made,  then  these  updates  were  held  until  the  weekend.  Thus, 
the  system  was  minimally  updated  once  a  week.    On  a  limited  budget,  it 
seemed  wasteful  to  make  a  computer  run  each  day  if  it  was  not  needed. 

Faculty  members  were  shown  sample  output  and  given  instruction  in 
the  use  of  the  system.    They  were  given  a  number  of  faculty  request  forms 
and  a  listing  of  the  team  members  by  senn'nar  with  their  associated  social 
security  numbers.    Ail  faculty  requests  were  filed  in  the  team  office. 
Computer  runs  for  the  faculty  requests  were  made  on  a  daily  basis.  Out- 
put was  filed  in  each  faculty  member's  mailbox  early  the  next  morning. 

Each  faculty  member  was  urged  to  see  what  the  system  could  do.  Un- 
fortunately, few  faculty  members  attempted  to  use  the  system.    Their  own 
records  were  readily  available.    Because  of  the  low  response  rate,  a  memo 
(Appendix  8)  was  sent  to  each  faculty  member.    Only  twenty  percent  of  the 
faculty  responded  to  the  memo. 
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Since  the  system  was  *:o  be  evaluated  by  each  faculty  member,  it 
was  felt  that  they  must  have  some  sample  output.    A  hypothetical  request 
was  made  and  submitted  for  ec-ch  faculty  member.    When  the  request  with 
associated  output  was  personally  delivered  to  the  correct  individual,  an 
appointment  was  made  for  the  final  evaluation.    Each  faculty  member  was 
urged  to  examine  the  output  carefully  and  to  ask  questions. 

Other  py^ograms  in  the  system  such  as  the  local  address  list,  team 
list,  and  graduation  list  were  run  at  the  appropriate  time  during  the 
quarter.    Output  from  these  programs  was  given  to  the  sem.inar  leader. 

Revise  the  System 

System  revisions  were  made  during  the  test  period.    There  were  no 
major  changes  to  the  initial  programs  in  the  system,  but  new  programs 
were  added  to  the  system. 

At  the  beginning  of  the  quarter  it  became  apparent  that  the  faculty 
did  not  have  the  social  security  numbers  of  their  students.  Consequently, 
one  of  the  options  on  the  faculty  request  form  could  not  be  used.  A 
program  was  therefore  written  to  print  a  list  of  team  members  by  seminar 
with  their  associated  social  security  numbers. 

Revision  of  the  field  experience  request  form  resulted  in  a  change 
in  the  basic  layout  of  the  student  record.    This  affected  every  program 
in  the  system  since  travel  and  work  experiences  were  added  to  the  structure 
PERSONAL.    The  only  major  revision  was  in  the  program  which  updates  items 
in  PERSONAL.    This  program  was  changed  to  include  update  routines  for 
these  new  i  terns. 

After  the  field  experience  request  form  was  revised,  a  program  was 
written  to  generate  the  form  printing  specific  data  on  each  student.  That 
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infonnation  which  had  to  be  completed  by  the  student,  for  instance  the 
grade  level  they  wanted  to  work  with  next  quarter,  was  not  included  on 
this  printout. 

Once  the  system  was  in  operation,  it  became  apparent  that  basic 
data  in  the  system  could  be  easily  updated.    A  program  was  written  to 
print  the  basic  personal  data  which  tends  to  change.    Students  could  be 
given  a  copy  of  this  printout  at  the  beginning  of  the  quarter.  Invalid 
information  could  be  crossed  out  and  corrected.    This  corrected  printout 
could  be  returned  to  the  seminar  leader  and  used  to  update  the  student's 
record. 

All  of  the  data  stored  in  PERSONAL  were  printed  in  some  form  by 
some  program,  yet  no  program  in  the  system  printed  everything.    Thus  the 
program  named  ALL,  which  prints  everything  contained  in  a  student's 
record,  was  written. 

Evaluate  the  System 

During  a  three-day  period  at  the  end  of  the  quarter,  the  investigator 
met  individually  with  each  faculty  member  to  evaluate  the  system.  First 
each  faculty  member  was  asked  if  he  had  any  questions  about  the  output 
from  the  5;ystem. 

An  evaluation  was  then  conducted  using  the  CEP  Management  Information 
System  Evaluation  (Appendix  A)  which  was  developed  prior  to  the  test  of 
the  system.    In  addition  to  those  direction  on  the  evaluation  form,  the 
faculty  were  given  the  following  instructions  in  order  to  give  them  a 
better  frame  of  reference  for  answering  certain  items. 

1.    Tor  the  first  item,  the  faculty  were  asked  to  assume  that  they 
used  all  of  the  information  on  students. 
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For  the  third  itam,  the  faculty  were  asked  to  assume  that  the 
computer-based  management  infonnation  system  had  replaced  the 
current  management  system  and  provides  them  with  requested 
information.'    How  would  this  affect  their  use  of  time? 


CHAPTER  IV 
DESCRIPTION  AND  EVALUATION  OF  THE 
COMPUTER-BASED  MANAGEMENT  INFORMATION  SYSTEM  AS  TESTED 

Descri  ption 

Chapter  III  contains  a  description  of  the  basic  characteristics  of 
the  computer-based  management  information  system  which  was  tested.  Mis- 
sing from  this  description  were  the  effect  of  the  system  on  the  faculty, 
the  effect  of  the  system  on  decision  making,  and  the  problems  of  acceptance 
by  students  and  faculty. 

If  the  system  were  in  operation  for  an  entire  team,  certain  clerical 
activities  performed  by  the  team  office  would  be  eliminated.    The  compila- 
tion of  the  team  list,  local  address  list,  and  graduation  list  would  ba 
completed  merely  by  requesting  the  execution  of  certain  programs. 

Seminar  leaders  are  provided  with  timely  information  on  individual 
students  or  their  entire  seminar.    Background  information  which  currently 
must  be  obtained  from  the  Undergraduate  Office  is  now  easily  accessible. 
In  addition  to  data  in  the  current  system,  summary  information  may  be 
obtained  about  a  student's  learning  activities  and  field  experiences.  This 
information,  which  provides  a  concise  view  of  a  student's  overall  progress, 
growth,  and  needs,  can  be  valuable  in  academic  and  personal  counseling. 
Since  most  data  on  the  field  experience  request  form  can  be  automatically 
generated,  time  will  not  be  wasted  in  seminar  meetings  completing  this 
form.    Other  questionnaires  may  be  eliminated  by  a  readily  accessible 
data  base. 
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The  effect  of  the  system  on  substantive  panel  members  is  substantial, 
since  they  have  mere  information  concerning  the  team,  a  seminar,  or  an 
individual  student,  and  the  information  is  better  organized  and  readily 
available.    Advance  information  about  a  student's  overall  progress  in  the 
program  can  be  used  for  counseling.    It  may  also  prompt  faculty  members  to 
discuss  a  particular  student's  progress  or  potential.    With  more  information 
available  about  a  student,  it  will  be  easier  to  plan  individual  learning 
activities. 

Accurate  and  readily  accessible  data  on  student  progress  in  CEP  may 
be  used  for  program  evaluation  and  research.    Perhaps  certain  questions 
about  the  program  can  now  be  ensv/ered. 

Students  were  concerned  about  the  use  of  a  computer  in  a  humanistic 
program.    Since  many  students  v/ere  new,  the  description  of  what  the  system 
could  do  for  them  was  of  little  meaning.    It  was  just  an  additional  prob- 
lem with  which  students  had  to  contend.    With  the  mass  of  students  on 
campus  where  one  is  often  identified  by  merely  a  social  security  number 
and  no  strong  ties  already  established  in  CEP,  this  concern  was  quite 
understandable. 

Previously  registered  students  also  expressed  concern.    Since  their 
records  were  not  up-to-date,  they  were  asked  to  list  those  learning 
activities  which  they  h-.d  completed.    Knowing  of  the  systems'  capabilities, 
this  posed  a  threat.    Suddenly  they  realized  that  the  faculty  would  know 
more  about  their  total  progress.    They  wondered  if  faculty  members  would 
spend  less  time  with  them.    What  effect  would  this  really  have  on  them? 

Student  reluctance  to  the  use  of  the  system  probably  affected  their 
cooperation  in  the  test.    This  reluctance  may  account  for  the  fact  that 
often  they  simply  forgot  to  attach  the  revised  learning  activity  slip  to 
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activities  which  they  submitted.    In  addition,  many  previously  registered 
students  procrastinated  and  did  not  return  the  list  of  learning  activities 
which  they  had  ccmpleted  until  the  middle  of  the  quarter  or  later. 

Although  the  faculty  recognized  the  potential  benefits  of  the  system 
in  their  evaluation  of  it,  they  were  reluctant  to  use  it.    Some  of  this 
reluctance  may  stem  from  the  fact  that,  according  to  the  procedure  for 
the  test  of  the  system,  they  had  to  maintain  their  own  set  of  records 
which  they  were  accustomed  to  using.    Since  they  were  required  to  maintain 
tfiese  records,  could  they  really  trust  the  system?   The  mere  idea  that  such 
a  system  existed  was  difficult  to  comprehend.    With  only  part  of  the  team 
involved  in  the  test,  the  adjustment  was  understandably  difficult. 

Eval uation 

The  evaluation  of  the  computer-based  management  information  system 
was  described  in  Chapter  III.    Since  the  number  of  faculty  responses  to 
the  CEP  Management  Information  System  Evaluation  was  small,  no  statistical 
tests  were  performed.    Results  are  summarized  by  frequency  and  percent 
for  each  part  of  the  five  items  in  Tables  1  through  5.    A  collection  of 
some  open-ended  responses,  given  by  the  faculty  to  the  question  why  they 
would  or  would  not  like  to  see  the  system  in  operation  for  the  entire 
team,  is  presented  in  terms  of  the  five  items. 

In  item  one  faculty  were  asked  whether  the  system  which  was  developed 
provided  sufficient  information  about  the  students.    One  faculty  member 
would  like  to  see  the  system  in  operation  for  the,  entire  team  because  it 
provided  "overall  background  information  such  as:    addresses,  graduation 
dates  (potential),  number  of  learning  activities  completed  in  special 
areas  for  m,e  -  also  overall,  and  the  number  of  terms  registered  in  the 
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pv-ogram."    Another  faculty  m-^piber  said  the  system  would  "offer  concise, 
updated  data  on  student  progress  through  the  program," 

Item  two  was  concerned  with  the  overall  evaluation  of  the  system. 
One  faculty  member  was  impressed  by  the  "quick  turn-around  on  getting 
point-in-t.ime  status  measures  on  individual  student  performance"  which 
would  help  in  being  "more  effective  in  my  monitoring  and  guidance  roles." 
Another  faculty  member  found  the  system  to  be  "an  efficient  means  of 
organizing  information  and  providing  a  manageable  procedure  of  record 
keeping  for  all  team  students." 

The  third  item  was  designed  to  assess  how  the  use  of  the  computer- 
based  management  informatiop,  system,  as  the  only  source  of  data  on  stu- 
dents, would  affect  the  time  faculty  spent  v/ith  students  in  various  situ- 
ations.   One  faculty  member  thought  the  system  "would  make  management 
more  efficient  by  encompassing  all  areas."    Another  said  "the  information 
provided  will  aid  me  in  organizing  my  perspective  of  the  individual  stu- 
dent in  and  out  of  my  particular  field;  enabling  me  to  spend  more  time 
effectively  and  efficiently  in  dealing  with  them." 

Item  four  was  designed  to  assess  faculty  attitudes  about  the  effect 
of  the  system  on  their  evaluation  of  students,  counseling,  and  planning. 
According  to  faculty  responses,  the  system  would  "help  in  planning  cer- 
tain curricular  alternatives  for  students"  and  would  permit  the  "substitu- 
tion of  professional  judgments  of  a  student  for  a  letter  grade  when  an 
estimate  of  quality  is  needed." 

In  item  five  the  faculty  members  were  asked  if  they  would  like  to 
see  the  management  information  system  in  operation  for  all  of  Team  III. 
One  faculty  member  said  "it  may  indeed  cause  one  to  have  renewed  appre- 
ciation of  the  wide  variety  of  operations  existing  within  the  program." 
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Another  indicated  that  in  the  system  "there  is  a  rich  untapped  potential 
that  alone  will  provided  better  answers  and  will  enhance  my  role."  In 
addition  th.e  system  provides  "more  and  better  opportunities  for  sideways 
communication."    Still  another  faculty  member  v/ould  like  to  see  the  sys- 
tem in  operation  "for  my  own  organization  and  a  happier  life." 

A  complete  tabulation  of  responses  to  the  amount  of  information 
provided  by  the  system  in  various  areas  is  presented  in  Table  1.  These 
data  indicate  that  the  system  did  provide  at  least  a  sufficient  amount 
of  information  for  the  areas  which  were  examined.    A  few  responses  of 
"more  than  needed"  were  recorded.    These  responses  indicate  that  there 
is  a  divergence  of  opinion,  however  slight,  on  what  types  of  information 
faculty  members  need. 

Responses  to  the  item  concerning  the  performance  of  the  system  are 
presented  in  Table  2.    Faculty  judged  the  perfonnance  of  the  system  to  be 
either  satisfactory  or  excellent. 

In  Teble  3  a  tabulation  of  responses  to  how  the  system  would  affect 
the  amount  or  time  spent  with  students  in  various  situations  is  presented. 
Faculty  members  felt  they  wo^ild  spend  about  the  same  amount  of  time  with 
students.    Responses  of  "lass  time"  and  "more  time"  prabably  are  related 
between  and  among  all  parts  of  this  item.    Faculty  would  need  to  spend 
less  time  in  obtaining  information,  thus  there  would  be  more  time  avail- 
able to  interact  with  students  in  this  or  other  situations. 

Data  which  are  presented  in  Table  4  indicate  the  effect  of  the 
system  would  be  either  positive  or  nondetrimental  to  the  program.  Faculty 
who  have  not  been  on  a  substantive  panel  did  not  respond  to  part  4A. 

Faculty  responses  to  the  fifth  item  are  presented  in  Table  5.  All 
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faculty  members  indicated  they  would  like  to  see  t!ie  system  in  operation 
for  the  entire  team.    In  response  to  the  open-ended  question,  faculty 
members  indicated  different  reasons  for  this  affirmative  response. 


CHAPTER  V 

SUMMARY,  CONCLUSIONS,  AND  RECOMMENDATIONS  FOR 
FUTURE  RESEARCH  AND  DEVELOPMENT 

Summary 

This  study  sxamined  the  feasibility  of  developing  and  operating  a 
computer-based  management  information  system  for  CEP  to  provide  readily 
accessible  and  reliable  information  about  the  team  and  students  in  it. 

A  basic  understanding  of  the  program  was  essential.  Initially, 
materials  concerning  CEP  were  reviewed.    Then  the  team  which  was  to  serve 
as  the  model  during  the  test  was  observed  for  a  period  of  one  quarter. 
In  addition,  faculty  on  this  team  were  interviewed.    From  the  information 
which  was  obtained,  the  goals  and  objectives  were  stated. 

Actual  development  of  the  system  was  broken  down  into  the  follow- 
ing activities:    data  to  be  maintained  on  each  student  were  specified 
in  detail,  system  software  was  developed  in  PL/1  over  a  period  of  three 
months,  procedures  for  the  collection  and  dissemination  of  information 
were  established,  and  a  users'  manual  was  written. 

A  test  of  the  system  was  conducted  for  a  period  of  one  quarter  on 
a  seminar  of  twenty-eight  students  and  the  faculty  members  on  their  team. 
The  computer-based  system  was  operated  parallel  with  the  current  manage- 
ment system  during  the  test  period.    This  type  of  test  provided  checkup 
and  backup  capabilities. 

During  the  test  period  revisions  were  made  to  the  system.  Although 
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there  were  no  major  changes  in  the  initial  programs  in  the  system,  new 
programs,  each  which  performed  a  specific  function,  were  added  when  their 
need  became  apparent. 

At  the  end  of  the  quarter,  faculty  evaluation  of  the  system  was 
conducted  on  a  one-to-one  basis  using  the  CEP  Management  Infoniiation 
System  Evaluation  form.    This  form,  which  was  developed  prior  to  the 
test  of  the  system,  consisted  of  both  structured  and  open-ended  responses 

Sines  the  number  of  faculty  responses  to  the  evaluation  instrument 
was  small,  no  statistical  tests  were  performed.  Results  were  summarized 
by  frequency  and  percent  for  each  part  of  the  five  items. 

All  faculty  members  would  like  to  see  the  system  in  operation  for 
the  entire  team  since  it  provided  timely  and  accurate  information  about 
the  s;tudent3  and  the  team.    This  information  could  be  used  for  counseling 
decision  making,  and  research. 

Although  faculty  members  would  like  to  see  the  system  in  operation 
for  the  entire  team,  they  were  reluctant  to  use  it  despite  prodding  from 
the  investigator.    This  reluctance  probably  stems  from  a  general  fear  . 
about  the  use  of  the  computer  and  the  limitations  imposed  by  the  test. 
Hopefully  this  reluctance  can  be  eliminated  by  further  education  during 
full-scale  implementation. 

Concl usions 

This  study  was  concerned  with  the  feasibility  of  developing  and 
operating  a  computer-based  management  information  system  for  CEP.  From 
the  results,  it  is  concluded  that  a  management  infomation  system  can  be 
developed.    However,  faculty  reluctance  to  use  the  system  creates  a  ques- 
tion as  to  the  operational  feasibility  of  such  a  system  in  the  program 
at  this  time. 
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The  system  perfcmied  well  in  that  it  provided  timely  and  accurate 
infonnation  about  students  and  the  team.    This  information  could  be  used 
for  counseling,  decision  making,  and  research. 

Faculty  reluctance  to  use  the  system  is  attributed  to  the  follo'wing 
factors:    only  some  students  in  the  team  were  involved  in  the  test;  the 
test  while  of  limited  duration  with  no  promise  of  further  commitment  posed 
a  burden  on  the  user  by  being  something  new  with  which  to  contend;  records 
had  to  be  maintained  for  all  students  during  the  test  period;  adjustirent 
to  something  which  is  new  takes  time;  and  difficulty  in  accepting  the  use 
of  the  computer  in  CEP  did  exist. 

A  definite  problem  exists  in  overcoming  faculty  reluctance  to  the 
use  of  the  computer  in  CEP.    This  reluctance  probably  stems  from  previous 
personal  experience  and  knowledge  of  problems  other  people  have  had  with 
the  computer.    It  is  quite  possible  that  faculty  members  are  not  aware 
they  are  afraid,  yat  their  actions  indicate  to  the  investigator  that  they 
may  wel 1  be. 

Hopefully  this  reluctance  can  be  overcome  through  further  associa- 
tion.   Faculty  must  become  aware  that  the  system  is  not  a  menace;  it  is 
there  to  help  and  support  them. 

CEP  faculty  members  are  not  heavily  data  oriented.    In  addition, 
the  program  allows  considerable  latitude  while  not  pressing  for  the 
gathering  of  data.    Consequently,  definite  problems  did  exist  in  obtaining 
missing  data  on  previously  registered  students.    It  was  difficult  to  im- 
press upon  faculty  the  importance  of  supplying  the  system  with  timely 
and  accurate  data.    Without  such  data,  the  value  of  any  system  is  ques- 
tionable. 

Everyone  involved  learned  that  the  establishment  of  a  computer-based 
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management  information  system  takes  a  great  deal  of  time  and  patience. 
Recommendations  for  Future  Research  and  Development 

Constraints  imposed  by  the  university,  model  team,  computer  center, 
and  budget  limited  the  computer-based  management  information  system  which 
was  developed  and  tested.    Assume  that  these  constraints  are  removed  and 
a  hypothetical  system  for  CEP  is  developed.    In  this  hypothetical  system 
the  data  which  are  currently  maintained  and  reports  which  are  currently 
generated  by  the  computer-based  management  information  system  would  not 
be  changed.    Alterations  would  be  seen  in  the  flow  of  data  into  the  sys- 
tem, the  number  of  reports  which  are  generated,  the  contents  of  various 
dictionaries,  and  faculty  orientation  to  use  of  the  system. 

All  of  the  basic  data  and  registration  information  could  conceiv- 
ably be  obtained  from  Academic  Computing  Services  at  the  university  on 
magnetic  tape.    Records  maintained  by  this  service,  which  are  updated  at 
the  beginning  and  end  of  each  quarter  by  adding  and  deleting  courses, 
adding  and  changing  grades  and  changing  the  appropriate  basic  profile 
data  J  could  be  used  to  update  the  main  file.    Unfortunately,  these  records 
are  not  in  a  form  which  permits  an  update  tape  to  be  generated  without 
considerable  effort.    If  an  update  tape  could  be  more  easily  generated, 
then  another  program  capable  of  handling  these  update  records  would  have 
to  be  written. 

The  use  of  data  from  Academic  Computing  Services  would  eliminate 
a  lot  of  effort  in  gathering  data  which  has  already  been  collected  in 
another  office  on  campus.    However  a  problem  would  be  the  length  of  time 
before  the  data  could  be  made  available  to  CEP. 

If  the  computer-based  manegement  information  system  is  to  replace 
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individual  substantive  panel  members'  records,  it  should  be  capable  of 
maintaining  data  on  all  learning  activities  which  are  submitted.  A 
learning  activity  slip  could  be  constructed  to  allow  constructive  criticism  ♦ 
to  be  made  for  those  activities  v;hich  are  not  acceptable.    Whenever  an 
activity  is  updated  the  new  comments  could  replace  the  old  consents.  If 
a  record  were  to  be  kept  of  the  number  of  times  an  activity  is  returned, 
it  could  be  used  for  program  evaluation,  program  revision,  and  research. 

In  order  to  have  the  data  on  learning  activities  up  to  date,  the 
current  information  flow  of  data  on  learning  activity  slips  into  the 
system  would  have  to  be  changed.    Learning  activities  would  be  collected 
from  the  faculty  on  a  daily  basis.    These  data  on  the  learning  activity 
slips  could  then  be  immediately  entered  into  the  system.    Students  could 
still  obtain  the  completed  activities  and  attached  learning  activity 
slips  at  a  central  location. 

Substantive  faculty  members  could  receive  a  weekly  listing  of  their 
students  and  the  activities  they  have  submitted  in  that  substantive  area. 
Additional  information  could  be  provided  whenever  a  request  is  made. 

Student?  could  periodically  be  given  a  report  of  their  progress. 
They  could  also  be  allowed  to  request  information  on  their  own  progress 
at  any  point  in  time. 

In  an  effoH  to  r^•duce  faculty  reluctance  to  use  of  the  system, 
a  formal  faculty  discussion  about  the  system  and  its  potential  could  be 
held.    Such  discnssion  about  the  system  could  create  both  interest  and 
curiosity.    Thus  the  faculty  could  in  effect  "sell"  the  use  of  the  system  ' 
to  one  another. 

The  problem  of  faculty  reluctance  to  use  of  the  system  has  convinced 
the  investigator  of  the  need  for  research  on  how  to  iiiost  effectively 
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interface  humans  with  sophisticated  technological  systems.  Apparently 
we  do  not  know  a  great  deal,  as  yet,  concerning  how  to  enable  human 
beings  to  identify  with  and  invest  in  a  systematic  management  approach 
to  instruction. 

As  the  computer-based  management  inforiiiation  system'  is  used,  the 
faculty  would  hopefully  begin  to  see  other  uses  of  the  system  which  may 
require  the  generation  of  new  reports.    Additional  data  items  might  also 
be  desired.    Before  entering  r»;w  .data  items  into  the  system,  they  should 
be  judged  on  their  potential  use  in  decision  making,  research,  etc..  The 
dynamic  nature  of  the  system  would  readily  allow  for  the  addition  and 
deletion  of  data  items  when  necessary. 

As  with  any  other  innovative  program,  there  are  many  unanswered 
questions  about  CEP.    The  computer-based  management  information  system 
will  provide  a  data  base  from  which  many  necessary  and  interesting  studies 
can  be  conducted.    Hopefully  these  studies  will  be  realized. 


APPENDIX  A 
MANAGEMENT  I N  FORMAT I ON 
SYSTEM  EVALUATION 


CEP 

MANAGEMENT  INFORMATION  SYSTEM 
EVALUATION 


DIRECTIONS:    PLEASE  INDICATE  YOUR  CHOICE  BY  CHECKING  THE  APPROPRIATE 
RESPONSE. 

I.    The  managemant  information  system  was  developed  to  provide  faculty 
members  on  the  team  with  timely  and  accurate  information  on  students. 
Does  the  system  as  developed  provide  sufficient  information  for  your 
purposes  in  the  following  areas? 


List  of  students  in  each  seminar 


^Addresses  of  students  in  each 
seminar 


C.  -^^Li sting  by  seminar  of  upcoming 
graduates  with  missing  learning 
activities  in  each  area 

D.  Student's  profile  on  the  Myers 
Briggs  Type  Indicator 


Student's  completion  of  required 
courses 


Stiident's  registration  by  quarter 
and  grades  received 


Student's  learning  activities 
completed  to  date 


fL    Summary  of  student's  learning 
activities  completed  to  date 


Not  sufficient 
"Sufficient 
More  than  iieeded 


_Not  sufficient 
_Sufficient 
_More  than  needed 

_Not  sufficient 
JSufficient 
_More  than  needed 

Jlot  sufficient 
_Sufficient 
j'lore  thsn  needed 

Not  sufficient 


_Sufficient 
More  than  needed 


_Not  sufficient 
Sufficient 
"More  than  needed 


_Not  sufficient 
^Sufficient 
More  than  needed 


_Not  sufficient 
Sufficient 
More  than  needed 


*The~se  things  are  furnished  by  the  system  although  you  may  not 
receive  them  in  the  form  of  computer  printouts. 
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II, 


IV. 


L    Student's  field  experiences 
completed  to  date 


J.    Summary  of  student's  field 
experience 

K.    Student's  community  experience 


Considering  all  aspects  of  the  management 
information  system,  in  your  opinion,  how 
v;ell  did  the  system  perform? 


_Not  sufficient 
_Sufficient 
_More  than  needed 

_Not  sufficient 
_Sufficient 
More  than  needed 


_Not  sufficient 
Sufficient 
"More  than  needed 


_Po  or 

"Satisfactory 
Excellent 


III.    Compared  to  .he  amount  of  time  you  nov/  spend,  how  much  time  do  you 
think  you  would  spend  with  students  in  the  following  situations  if 
the  management  information  system  was  your  only  source  of  data  on 
students?  * 


A.    Individual  discussion 


Individual  counseling  (academic 
providing  evaluative  feedback) 


C.    Individual  counseling  (personal) 


Small  group  (e.g.  seminar,  dis- 
cussion group)  meetings  for 
instruction  and  planning 

Large  group  (e.g.  workshop,  etc.) 
meetings  for  instruction  and 
planning 


_Less  time 

JSame  amount  of  time 
More  time 


_Less  time 

_Same  amount  of  time 
More  time 


less  time 

"Same  amount  o'f  time 
"More  time 


_Less  tim.e 

_Same  amount  of  time 
"More  time 


_Less  time 

jSame  amount  of  time 
More  time 


Assume  that  the  management  information  system  has  replaced  the 
manual  record  keeping  system. 


A.  Would  you  make  fewer  comments  on 
student's  learning  activities  than 
you  did  before  the  management  infor- 
mation system  was  installed? 

B.  Would  you  do  a  better  job  counseling 
(working  with)  students  because  you 
have  more  readily  accessible  data  on 
their  progress  in  the  program?  . 


Yes 
"No 


Yes 
"No 
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C.  Would  you  havn  more  data  v/hich  could   Yes 

be  used  for  better  evaluative  judg-   No 

ments?  ; 

D.  Would  you  find  it  easier  to  plan   Yes 

individual  learning  activities?   Tlo 

V.    Would  you  like  to  see  the  management   Yes 

information  system  in  operation  for  all   No 

of  Team  III?  '  .  -  i 


Why? 


APPENDIX  B 
MEMO  TO  FACULTY  MEMBERS 
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DATE:    Nov.  18,  1974 

MEMO  FROM:    Bernice  Doerr 

TO:  All  C£P3  faculty  members 

SUBJECT:  At  the  end  of  the  quarter  you  will  be  asked  to 

evaluate  the  management  information  system.    If  you 
have  not  yet  used  t!ie  system  please  try  to  do  so  in 
the  next  few  weeks. 
Thank  you. 


] 


APPENDIX  C 

PROGRAMS  IN  THE  CQl'lPUTER-BASED  MANAGEMENT  INFORMATION  SYSTEM 


Program  Page 

Ai-L   63 

BASIC                                                                                         .  PI 

BUILD   85 

CHECK.   89 

FILE   Q4 

GRADS   96 

LOCAL  ■                                      '      '  '  ■  99 

PRINT.   102 

PURGE   110 

REQUEST   112 

SS   115 

TEAM   113 

UPDATE   121 
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OUTPUT 

UH -SCRIPT  I  on: 


/* 


Llr^riN-,    Of-    A(.L    DATA   CN   SfUOENT'S  AS 

SiAD    Th'i.    IMTl.H.    D\TA.      OOTAIN    A  TACJUTY 

'•irZouK^zr  i     If-  Tiif-;  r-p;aj£;;3T  tvpc  is  cqjal  to 

ONH;  .    Pm  M'^    ALU    tNK.V/nM  at  UON    in    THU  i-^ECOROS 
Of"    TML:   iMCMIStRS   Gi-    TIU-    SPfCIFlCU  St£MtNAH. 
LTHtk,i  I ,    PP.INT    Aul.    I  Nf-"OK  M  A  r  ION    IN  THt 
■\KC0f-:0r.    wlTK    ruE    SPCCll-I'tO  SOCIAL 
SEClliilXf    NLM.O~«S    FOLLOWING    W'.si  PLQUEST 
UNTIL   AN    'VI,     /.HlCi'    I       1  C  A  f  LS    r  HL    C.ND  OF 
THIS    KL'tiUCTiT,    IS    .'•.■:Ai).      CON  n  NUB  TO 
P:-:u-:S:J.S    THr,    SHMAiMMG  HtCUESTS    IN  THE 
SAM1-:    .■■'Ai'JNi'.R . 


RtAO    TMP  «ANGt- 
fScO    TO  DYNAiMICALLY 
(-ACLLTY  NO. 


or-  Tim  THAM  ^uMB^:^■^•s.     this  kangiz  is 

ONIKGL    the   iVrO^AGE   ALLOCATiiO  T'O 


GcT    FILt(SYSIN)    ED IT(M. W.MAX)  (CUL(  I !  ,2  (F{n.X(4))); 

8t£GIN; 
OfiCL  jse 
/  * 

EACH    STUOc,NT»S   ^ECOHD    CONSISTS    Or    PcftSONAL  ANO 
ACAOE.MJC  OATA. 
1    PLf.  SCNALi 
./■)' 

SOCIAL    SfrCGRITY  NUMBER 

2    SOC_S(£C_NO    CHARACTtRO)  , 

NAME 

2  NAME. 

LAST  NAME 

3    LAST    ChA«ACTHf;i  14)  , 
/* 

FISST  NAME 

3   FI;?ST    CHARACTER  (  I  0)  , 
f'ICOLK  NAME 

i    .XlOCLfi    CHAR  ACTGR  (  l/-,)  , 

/* 

PEiRf/ANENf  ADORcSS 
2    Pi-A'-y,    AUDR  t 
/« 

STREET 

3  STR'iar  ChA[?ACTea(20)  1 
/* 

CITY 

J    CITY   CHAHACTEr-<(  20  )  • 
/* 

POSTAL   AStlSEV  £AT  I  ON  FOP    THE  STATE 

3    STATE    CHA.<  ACTEIK2  )  , 

/•* 

^IP  CODE 

J  i  ip  rHAPACT^:r<(5  ) . 

/* 

PCPMA/hEuT   phone   ,NU.-if.SE;?    IfJCLUOING   AREA  COOF 

P.   PENM    PHONE    CHARAC  rEP  I  I  0  )  . 

/■* 

L'-CAt.  AfinPESS 
2   LOCAL  ACD,T» 
/  » 

STREET 

3    STREET    CI-ARAC  rr  R  ;20)  t 
/+ 

C  I  TY 

J    CITY   CHARAC  ,  ER(  .10  )  J 
/A 

POSTAL    A!3Li!<EV  lA  r  ICN   FOR    THE  STATE 
1    STATE    CHAi<ACTE'-l(  a  )  , 

ZIP  coon 

J    ZAP   CI;AKACTER(5  )  , 
LOCAt.    IMONE  NUMHER 


*/ 

«/ 
*/ 
*/ 
*/ 
*✓ 
♦  / 
*/ 
*/ 
*/ 
«/ 
*/ 
*/ 

tx 

*/ 
*/ 

*/ 
*/ 
*/ 
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2   l_OC  AI._PM(iN!:    CI-IAS  AC TCR  (  7  )  . 

sek:  one  CH/RAcrb''<  cooE  */ 

?.    StX   CMAR  AC  i  UiJ  (  I  }  > 
/* 

OATf-:  (IP  oiRru  */ 

2  Uir5TM_DATE, 

wcMn  OF  bt^TH:  T\ia  oroiT  cooE  ♦/ 

MONTrt   FJXSi)  f3INARY» 

/  * 

DAY    an    bI«TH  */ 

J   CAY   FIXED  aiNAtXY, 

/♦ 

YEAR  OF  aiRTH:  LAST  TWO  DTGITS  OF  THE  YEAR  */ 
J    YR   FIXtD   13 1  NARY  t 

/  »• 

VAfJITAL    status:    ONIi    CIGIT    CODE  */ 

,2    MASITAL    STAT    FIXhO  UlNARYt 

/* 

NUMBER  Of-  CEP^NDENT  CHILOREN  */ 
2    OEP   CHILDREN    FIXED  t}INAI>Y, 

AGE    RAhiGE   OF    THE    CEFENDENT    CHILDREN    lYOUNGGSf  AND 
OLDEST)  */ 
2    AGE    RANCE(2)    FIXED  BINARYi 
/* 

1*0PK   EXPER  lENCESI  MA.V  i  MUM   OF   SIX  EXPERIENCES): 

TWO   DIGIT   COOE  */ 

2    WORK^EXPI 6)    FIXED  BINARY, 

/* 

TRAVEL    EXPER  IENCE3  (  J'AX  IKUM   OF    SIX  EXPERIENCES): 

'f'.iO    DIGIT    COOE  */ 

5:    TR  AVtL_EXP  (  6  )    FIXED  OlMARY. 

/* 

CURRENT    EMPLOYMENT  •  */ 

2    CUR  EMPLOYMENT. 
/* 

EMPLOYER'S   NAME  */ 

J   EMPLOYER    CHARACTcR(  20)  •» 

/* 

HO!^RS  V/ORKED  PEP  WEEK  */ 
3   HRS_P£R_WK   FIXED   BINARY # 

/* 

RECORD    CF    COLLEGES   ATTENDED  */ 
2    COL_ATTt     )  . 
/* 

t^AME    OF    THE    INSTITUTION  */ 

J    INSTITUTION    CHAR (JO). 

/* 

ATTENDANCE    RECORD  */ 
-i  DATES. 
/« 

MATRICULATION  DATE  */ 
4   BEGIN  CMARACTER(6) ► 

LAST   REGISTRATION  '  */ 

4    END    CHARACrER(6) , 

/* 

CURRENT    GRADE   POINT    AVERAGE  */ 

2    GPA   FIXED  BINARY, 

/> 

MYERS   ORIGGS    TYPE    INDICATOR:    TWO    DIGIT   CODE  */ 

2    MYERS_(3R  IGGS    FIXED  BINARY, 

/r 

CAT-:   OF    ;-.NTRANCc    INTO   CEP  */ 
2    CEP_ENTRANCE , 
/* 

y:-:ar  of  entrance:  last  two  digits  of  the  year,  */ 

J    YR    fixed  BINARY, 

(2UARTER    OF    ENTRANCE:    ONE   DIGIT    CODE  */ 

3    OTR    FIXED  BINARY, 

/* 

hours  excepted  toviaro  gradliation  */ 
j  hrs_com  fixed  dec  im al { 4 . 1 )  , 

specialisation:  one  digit  code 

2    SPEC  CAL  liiAT  I  ON  FIXED  UINARY, 
/* 

TEAM  NUMBER  •  ♦/ 

2    TEAM    FIXED  BINARY. 

/* 

SEMINAR   NUMBE;t  */ 
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2   SEMINAiJ   Fl\-10  OIHMY, 
/■» 

lIXPECfHO   OAfC    OF   GRAOUATICN  */ 

2  exp  GP.An_OAri£. 
/* 

expiicTEo  Yr.A!?  0.-  gracuation:  last  r-.vo  digiTs 

OF    fH!-:   YhAI?  ♦/ 
J    Yi?   1-  I  XEO    U  I  NAP.Y  • 
/  k 

QUART'IR    OK    0«ACUATlfJN:    ON(£    IvtOlT  CODE 
J    QTf?,   ("IXtID  iJlNARY. 

/* 

GRADES  >^tCEIVEO  POR'  PeOUIRfTO  COURSES  IN  CEP  */ 
^    REG_CUUKSH_G;<A'Dr;<  9  )    ChAUAC  rEH(  U  t 

/* 

REGI  f=  r«A  r  ION  RuCORO(  /JAXI  VU;<I   OF    EIGHT  REGISTRATION 
SECONDS)  f/ 
?    REGISTRATTGNI a) . 
/« 

REGISTRATION  CATu 

J  CATEt 

/* 

YEAR   OF  registration;   LAST   TWO  DIGITS  OF  THE 
YEAR  «/ 
YR    FIXED    BINAHY    I  N  I T  I  At  (  {  8  >  0  )  t 

/* 

•iUARTEK   OF    REGISTRATION:    ONE   DIGIT    CODE  */ 
QTk    fixed   yiNA.'.Y    INITI  AL  (  (  3)  0)  t 

/* 

COURSE:   REG  :  STPAT*  CNI  MAX  IMUM  OF    FIVE   COURSES  PER 
CUARTER)  */ 
3    COURSESCS) > 
/* 

COURSE  N'JMOER 

4    COURSc_NO    CliARACTERCS)    I  N  I  T  I  AL  {  {  40  )  (  1  )  •  •', 
/* 

CREDIT    HOURS  */ 

4    HR5   FIXED    BINARY    I N t T I AL ( { 40 ) 0 ) t 

/♦ 

GRAuE  PECEiVEO  ♦/ 
4    GRADE   CHARACTER(l)     [ N I T I AL (  ! 40 > I  I  )  •  •), 

/■» 

LEARNING   ACTIVTTY   RECGRO   CC^3ISTtNG   OF  35 
LEARNING   ACTIVITIES,    J    BEYOND   THE   MINIMU.M3    AND  10 
AREA  SUMMARIES 
2    LEARN  ING_A (93) , 
/* 

i-ACOLTY   MEMBER    .vHO    EVALUATED    THIS   ACTIVITY:  TWO 
DIGIT    FACULTY  CODE 

-■'    FACULTY   FIXED    BINARY    I N  I  T  I  AL  (  (  I  1  3  )  0  )  , 
/* 

DATE    ACTIVITY    iHAS    COMPLETED:    5-:X    CHARACTER  CODE 
(MCNTri:    Two    DIGIT    CODE.    DAY:    TWO  DIGITS. 

year:  last  two  digits  cf  the  yeak>  .■»/ 
j  cath  characterie j   in  i  t i al <  (  i  1 3 > (  i )  •  •)• 

/'« 

FACLLTY    MEMBER'S    COMMENTS    ABOUT    THIS  ACTIVITY 
(MAXIMUM    OF    SIX    COMMENTS):    TWO   DIGIT   CODE  */ 
3   COMMENT  (6)    FIXED    UUJAr.Y    I N  11  I  AL  (  (  70  8  )  0  )  , 
/* 

ACTIVITY  title:  THREE  DIGIT  CODE  -H/ 
3^ACTI  VI  TY_TI  TLE    FIXEiO    OINARY    I N  I  T  I  AL  (  {  I  I  8  )  0  i  , 

GROUP   status:    ONE    HIT   CODE  */ 
;i  GROUP   iilT(U    IN  I  TI  AL(  (  II  8)  '0 'B)  t 
/* 

SUBSTITUTE  status:  ONE  QIT  COOF  */ 
3    SUaSTITUTE    Hir<l)     INITlAUl  (I  13)  'O'O)  , 

/* 

FIELD    EXPERIENCE    RE CORO ( MAX  I MU M    OF    SEVEN  FIELD 
EXPERIENCES)  i./ 
2  FI£LD(7), 
/* 

NAME    OF    THE    SCHOOL:    UNC    DIGIT    CODE  */ 

J    SCHOOL   FIXED   BINARY     I N  I  T  I  AL (  ( 7  )  0  )  . 

/* 

GRACE  LEVfcL  OF  THE  CLA.SSRQCM:  TWO  DIGIT  CUCE  ♦/ 
3    GRADE    FIXED    DINARY    I N 1 TI AL ( I / ) 0 )  , 

LEVEL    IN    CEP:    ONE    DIGIT   CODE  >  #/ 

3    LEVEL    FIXED    BINARY    I N  I  T  I  AL ( ( 7  J  0  )  . 

/* 

DATE   OF    THIS   FIELD  EXPer;l£;NCE 
3  GATE. 
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/* 

YEAft  OK   Ihrs  FILLO  EXfTlP.  IITNOE :   LAST  TWO  OIOITS 
Of"    rilL"   YEAR  */ 

A  y«  rixKD  uiNAPY  ira  ri AL( (  75  0) . 
/« 

CUAflTeS   OF    THIS    ritlLD   flXS'EK  I  CNCC:    ONt  0  (  G  I  f 
CODE  */ 
A    <1T«    HI;<irO   OIUARY    I  NI  r  I  AL  (  (  7)  0)  . 

/* 

TYPd    OF   classroom:    one   OIGir    CODl£  */ 
J   ClASSKOOM   fixed    «INAHY    I N I T I AL ( ( 7 ) 0 ) , 
/  ► 

NAME    OF    THE    SUPERVISING    fEACHCR  !=/ 

J    TtHACMER    CHARACrtR  C  I'O    i  N  I  T  I  AL(  (  7  )  (  I  )  •  »)t 

/* 

.^CLE(  MAX  IMUM    OF    SIX   ROLES):    TWO    OIGIT    CODE  V/ 

J   F_f;OLt(e)    FIXED    BINARY    I  N I  T  I  AL  <  (  4  2  )  0  )  , 

/* 

STRENilTHSCMAXIMUM    OF    SIX   STRENGTHS):    TWO  DIGIT 
CODE  */ 
3    STaENGTH3(5)    FIXED   BINARY    I N I T I AL (  ( 42) 0)  , 
/* 

■we:AKNESSES(MAXIMU.v    CF    SIX    WEAKNESSES):    TWO  DIGIT 
CODE  */ 
3    V«eAKNESSES(  6)    FIXED    BINARY    I  fJi  T  I  AL  {  (       )  0 1  t 

/* 

CCMMUNITY    EXPERIENCE  */ 
2  CGHMUNITY, 
/* 

AGENCY   NAME  */ 

3   AGENCY  CHAr?ACTER<20)    INITIALC  •>. 

/♦ 

^AME    OF    THE    AGENCY  REPRESENTATIVE  */ 

3    AGENCY_REP    CHAR,ACTE.^  (  1  4  )     I  N  I  T  I  AL  {  •  •). 

/A 

LEVEL    IN   CEP:    ONE    DIGIT   CODE  */ 

3    LEVEL   FIXED    BINARY  INITIAL(O), 

/♦ 

DATE    OF    THE    COMMUNITY    EXPERIENCE  -*/ 
3  CATEi 
/* 

YEA-?   OF   TiiE    COMMUNITY    EXPERIENCE:    (.AST  TWO 
DIGITS   UP    THE    YEAR  */ 
4    Y'^    FIXED    BINARY  INITIAL(O). 
/* 

QUARTER    OF    THE    COMMUNITY   tX^ERIENCE:    ONE  DIGIT 
CODE  */ 
A    OTP    FIXED    BINARY  lNlTIAL(0)f 

/♦ 

ROLc(  MAX  IVUM    CF  }- CUR    ROLES):    TWO    DIGIT    CODE  -f/ 

3    C_K0LE(4)    FIXED    BINARY    I N I  7  I  ^L  (  t  4  )  0  )  , 

/* 

AGENCY  REPRESENTATIVE'S   CC VMENTS ( MAX  I  MUM   OF  FOUR 
COMMENTS) :    TWO   DIGIT    CODE  A/ 
J   C_C'>JMMENT(4)    FIXED   BINARY    IN  I  T  I  AL  {  {  4)  0  )  ; 


T*C:  DECLARE 


DICTIONARY  OF  THE  ITEM  NAMES  ASSGCIATFO  WITH  THE 
CODES  KECORDEO  IN  PERSONAL  FOR  LEARNING  ACTIVITY 
TITLES..  n,/ 

ACTIV17Y_T(TLE_DICT(0:200)    CHARACTER  146)  INITIAL 
i '    '  • 

■OR (EN TAT  I  ON'  , 

'FINAL  EVALUATION*. 

'NEED    AND    RCLE    OF  ART't 

'ART   GROWTH   AfJD    Del  V  E  LC  PME  NT  •  . 

•ART    CURRICULUM  PLANNING'. 

'  S  TUC  to    ACT  IV  n  lES'  , 

(24)  (  1  )  '     •  , 

•fSASfcS    FOR    CURRICULUM  PAPER', 
' MED  I  A    SEARCH'  , 
'SOCIAL    CLASS  INTERVIEWS'. 
'STUDY    Oi-    ONE  CHl;.a'. 
•KEPORTINij    PUPIL  PROGRESS', 
'TEACHING    LIFE  PROCESSES'. 
•CREATIVE    THINKING    M0DU1  E • . 
'ORGA^^^ING   LtAKMNG  EXPERIENCES', 
'  RlX.E    OF    TEACHER  •  . 

'GROUPING  FOR  INSTRUCTION',  " 
•(-•LANS  FOR  TFACHINiJ-LEARNl'fJC.  SETTING*, 
'DEVELOPING  INSTRUCTIONAL  5TRATLGIFS', 
(  '.O  (  1 )  •    '  , 

'LISTENING   AND  SPEAKING*. 
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•NATURf:    OF    I.  ANCUAGK  •  » 

•  V  I  SI-AL   U  I  Tl-.I<AC  V«  t 

•  MA,\,DW'<  I  I  I  NC,    AUC  Sl?t:Lu!NG't 

•  C  0  Mk  f!  li  I  n  ON    Ar<  0    GR  At^HMt  •  . 
•CHIl.Dru:N:;  LArJGUAG!:', 
•SHAiaNG   LtAHNlNG  CENTEnS*. 
•CREATIVITY' , 

(  I  i' )  <  1  )  •     •  , 

•LUK.INMNG    NUMOE';S«  I 

•ADOiriUN   -    S'JbTKAC  T  ION*  V 

•MULTlPl.  ICATION   -   0  I  V  I  S  I  C  N.«  t 

•FR/.CT  IONS  •  . 

•DECIMALS,    AND  PERCENT'. 

•  MfcA  S1^:-^1-;ME  NT    AND  GECyETRY'. 
•NoMf-fiATION    SYSTEMS    AND    BASES*  t 
(  i  J)  {  t  }  •     '  , 

'ANCU.L-\KY  INSTRUMENTS'? 

•  TEACH  I NG'  t 

•;?ESGU.<CE   CCLLECTION'  . 

•  I  NTEHi^ifL  A  rtO    TEACHING  UNIT*. 
'CAf-iu    URtiF    APPqtJACM*  , 

'C:-,EATIVE    COMPOS  I  T  I  CNAL  APRPOACM', 
■ ZOLTCN    KOOCLY  APPROACH', 

•  FUNUAMdrMTAL  .    CREATIVE    AND    DWECTEO  MOVEMENT', 
•LEARMiMG    CENTERS   AND    IPB[    IN   MUSIC  t 

' PHILOSOPHY  PAPER', 

•MAKING    AND   PLAYING    THE  OULCtMES't 
•CCMPCS  IT  I CNAL    APPRCACH'  , 

•MUSICAL   CONCEPTS   KCR    EARLY  CHILDHOOO*. 
'MODELS    FOR  TEACHING', 
•MUSIC    AND    OPEN  EDUCATION'* 

•RoCx,JA^^.  gospel:'  let  them  teach*. 

•GRFF    GUIDED   PROJECT' , 
<2>  (  U  •    •  . 
•ACTI VI TY    1'  , 
'ACT  IV  I TY    2«  , 

•  A  C  T  I  V  I  T  Y   J  »  , 

•  ACT  I Vf  TY  A'  , 
' ACT  IV  I TY  5'  . 
'ACTI Vt  TY   6«  , 

•  ACT  IV 17 Y  7'  , 
=  ACT  I  V  I TY  3»  , 
••  AC  T  I  V  t  TY  9«  , 
•ACTIVITY  10', 

•APPLICATION   OF   PRINCIPLES  OF   HUMAN  DEVELOPMENT 
•CCMPL;£TED    L3Y    TAKING  EDFJ*5', 
(  S  >  (  I  )  '     '  , 

•TEkMINOLOGY   and   WORD    ATTACK  SKILLS'. 
'ASSESS    PUPILS    READING  LEVELS'. 
■StLECTION   OF    APPROPRIATE  MATERIALS', 
•DcTEPMINE    APPf^OPKIATE    SKILLS   AND    TEACH  THEM', 
•CLASSaCCM    ORGANISATION    AND    RECORD  KEEPING', 

•  P:?EPARAT  I  ON   OF    .VATEniAL  FJLE', 
'READING  READINESS?, 
'METnOOS   OF   TEACHING  READING'. 

{  !2)  (  I)  •  •  , 
•LAHCn ATORY  I ' • 
•LABORATORY  a* , 
'LAb  ORATORY  -i  •  . 
'LAOC^ATORY  4'  . 
'GriAPHiNG  VARIABLES'. 
'  MEA  SLR  I  NG  '  , 

•DESIGNING    AND    RUNNING  EXPERIMENTS'. 

= ECOLOGICAL    VARIAULES* , 

•CONTSOLLING  VARIABLES'. 

•wait    TIM!"    AS    A   FACTOR    (N  INQUIRY'. 

'FATE    CON  rf.C)L'  . 

'Vt.TOAL  SANCriONS", 

•  INvlUIflY'  , 

•CLASSRO(JM   CONTROL?  , 
•MANAGEMENT' . 

•EXEMPT    i.!Y    PREVIOUS    H  EOU  IR  EMENTS  '  , 
(  4  )  (  1  }  •     '  , 

'KEEPING   UP    WITH  RESEARCH', 
•SYSTEMATIC    CLASS'^OCM   (JllSERV  AT  I  ON  •  . 
•MAPPING    AND    AREA    SOCIAL  S.YSTEMS', 
•COMPLETED    tlY    TAKING  E"DFJ20^, 
(  ^>  (  I  >  '     '  . 

'SOCIAL    SCIENCE  DISCIPLINES', 

•MEDIA    AND    A  C  T  I  V  I  T  I  E.S  •  ,  " 

•SKILLS    Of    ;,QCIAL    STUDIES'  . 

'PRUGUAM   PLANNING  AND    e VALUATION'. 

•PERSONAL--':()CI  AL  Al^)  [NTERuKDUP  PROULEH  SOLVING' 
'GUOLP    STUDIES    AND    PiJCULEM    SOLVING*  , 
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( )  { I ) «  » I 

•ART ' . 

•  CUR" I CULUM*  t 

«HUMAI<    Or-,OV(TM   Ai\D   O  Q  VULOPMfN  f '  . 
•L.  ANC'jAGF.    AR  rS  •  ■ 

•  .MAThhKAr  I  CS.  •  t 
•MUSIC  « 

'UK  AC  INC. 
'  SC  IHNCt:'  . 

•SOCIAL   f'UUNOAT  ICN5'  f 
•SOCIAL  .STUOIIIS^  . 
(  I  )  (  I  )  •     •  )  t 

/* 

DICTiaNARY    OF    THE    Sl.»3  S  T  AN  T  I  VC    ARPA    NAM(£S  ASSdCIATEO 
WITH    THE    CODES    UStr'D    IN   P  fci?  SON  AL .  */ 
Ar^fcA_DICT(  1  1  >    ChA,?AC  rtR       1  )    I  N  I  T  I  AL  (  •  AR  T  •  .  •  CURHI CULUM  • 
v'MUMAN    GI''Ov.TH    ANO    C  CV  .'  s  '  LANGUAGE    AR  T  3  •  .  '  M  A  TM  •  . 

•MUSIC  •,' r<b  AO!  NG •  ,•  SCI  tNce •  ,  'soc  I AL  fuunoat  ions*  • 

•SOCIAL    SrUD  U.^S  •  .  '0S£  COND  MINIMUM*). 

/* 

DiCTIONAi^Y    OF    THE    ITEM    NAMES    ASSOCIATED    '*<ITh  THE 
CODES    RECOODED    IN    PERSONAL   FOR    COMMENTS  A3CUT 
CGMV.UNITY    dXPEi^  I  ENCES  .  */ 
C_CCW(^£NT_OICr  to  :  10)    character  (26)  INITIAL 
{*     •  . 

•COMMON    SENSE*  > 
•COOl^  tRAriVE'  . 
•CriEATlVE  THINKING.'. 

•F.N  rnusi  ASTir.»  , 

'  INI^USTRIOUS'  . 

•  I M  T I  ATI VE^  , 

•RELATES    WELL    vvTTH  CHILDREN*, 
•■VCRKS    WELL    WITH  CHILDREN*. 
•WOPKS    '.'JELL   "WITH   COVvOhKERS*  . 
•^KORKS    WELL   WITH    SOFERV  I  SOR  •  )  . 

/* 

DICTIONARY  OF    THE    ITEM    NAMES    ASSOCIATED    WITH  THE 
CODES   P.eXORCF.D    IN    PEP.SONAL    FOR    THE   RCLES  PLAYED 
DUFINC,    A    COMVUNITY    f-X  PE'U  ENC  E  .  */ 
C_ROLe_DiCT(  o:  15)    CHARACTERI-+2)  INITIAL 
(  *     »  . 

•ANSl*E?ED  PHONE'. 

•ASSISTED    IM    SPECIAL  CLASSES', 

•CGLLECTED    SAMPLES    OF   DISPLAY   USAGE* , 

•CCNOijCTtO    TOiJRS'  , 

'GENERAL   NURSERY   ACTIVITIES* • 

»  CDSERVI:0'  ,  • 

•0,;CANI/EO  GAMES', 

•PART    TIME   LI  OR  APIAN', 

•PLAYED    v.'ITF  ClilLOREN*. 

•VISITED  PATIENTS', 

•WCRKED    VITH   ARTS   AND  CRAFTS', 

•WORKED    WITH    FREE   PLAY  ACTIVITIES*. 

'WORKED    WITH    MUSIC    ANO    READiNiiSS  ACTIVITIES*. 

•WROTE    ANCEDOTAL    S  I  TU  I  AT  I ONS • . 

(DID*    •  )  , 

/  + 

DICTIGNAc;Y   OF    THE    ITEM    NAMES    ASSOCIATED    WITH  THE 
COOES   RECORDED    IN    PERSONAL   FUR    THZ    TYPE   OF  CLAS5- 
RCCM.  »/ 
CLASSPOCM_OI  CT  (  0  : 'I  )    <x  FA  RAC  TER  (  1 2  )  INITIAL 

<•     '.'OASIC    SK ILLS'  ,' FREE ','  CPEN •,  'ST ANOARO'  > , 

/* 

DICTIONARY  OF    THE    ITEM   NAMES  ASSOCIATED   vyiTH  THE 
CODES    RECORDED    IN    PEIRSJNAL   FOR    COMMENTS  /.UOUr 
LEARNING    ACTIVITIES.  */ 
COMMENT _D ICT ( 0 :60 )    CHARACTERING)  INITIAL 
C     •  , 

•  ACCURATE'  , 

'  AOAPTAOLL •  , 
'  HR I EF •  , 

•CAREFUL    IDEAS'  , 
'COMMAND   OF  SUBJECT', 
'  CCMFE  I'ENT  '  . 
•CCMPLE  TE •  > 
•GREAT  i VE '  . 

'CRITICAL     INDEPENDENT  THINKER*. 
'DESCR  IPTI  VE  »  . 
•ENERGE  r I C •  , 

•  EN i  hUS I  AST IC«  , 

•  EXCELLENT •  , 

• E  XCCLuENT    I OEAS*  , 
'KA  tR'  . 
•FuEXIiJLE*  , 
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•  GOOD '  , 

•  GOOC    CL  ASi^COGM   APPL  IC  AT  IONS  '  , 
•OUL/Ci   CR  I  TCK  I  A  •  • 

•  f  MAO INAT I Ve •  » 

•  I  N  rEtnTori  NO'  . 

•L.OC,  ir.AL*  . 

• MUT I V A  rao • t 

•NIIED    MORE    i:VIDr.NCl£    TO    SUi-PJt^T  CDNCCUSION*, 
'NEi:05    MORE.    DUG  UK^.^^  T  A  V  I  C  N  •  . 
'Ndi-CS    TQ    Uf;    MOi^L"  CCNCISE»» 
»N(JT   ENUUGM    SOURCES'  > 
•(3!UGINAL  IDCAO', 

'POOR ' t 

•PEASQNEO    INFt^HKNCE  •  , 

•  ritIL  t  AOLE*  . 

•PCLAIKS    WELL    TC  PeCPUE'j 

•  RESCU.^CeKUL  •  > 

'  SA  J I     AC  J  O)^  Y»  . 

•SfOUlTER*  , 

•  3  C  )  f=    T  I.  F  I  C  •  . 

•  SCHCLAhiLY  •  . 

•Sl'lZADY   PURSVJIT    Of'  TASK'. 

' STIMULATING* . 

'SYSTEMATIC*. 

•THOUGHTFULLY  APPi.ieO*. 

' TOO    CcNERAL* , 

•WELL    CHOSEN  REAOINCS*. 

•  '.VELL    DISCUSSED'  , 

•  WELL   DONE •  . 
'A'ELL  RESEARCHCO', 

•  /.ELL    STATED'  . 

>  jlOTiK   CCMPETHNT    IF  ATTENTIVE'. 

•  ORK    Si  lO'A  S    HUMOR  •  * 
•W.IITING   DIFFICULT    TO   RE  AO  I, 

•  •  . 

•ABILITY    TO   DO  THIS'. 

•  I  NTE.^E  "vT    IN    WORKING    WITH  PUPILS'. 
•NO   PROULEMS • , 

•UN0E;?STOOD  ACTIVITY'. 

"PASSED ' . 

'  wCvKS    HAPO'  . 

•  I NTERESTED*  • 
I  1  J  <  1  )  •     •  )  , 

/♦ 

DICTIONARY   OF    THE    ITEM   NAMES    ASSOCIATED    WITil  THE 
CODES    RECORDED    IN   PERSONAL    FOR    THE   ROLES  PLAYEO 
DURING    A    FIELD    EXPEiUENCE.  */ 
F_ROLE_DICT{ 0:55)    CHA R A C TER ( 4 4 )  INITIAL 
(  •     •  . 

'ADMINISTERED  SGCIO-GHAM', 
'ADMIMSTERED    STANOARDI/CEO  TEST'. 
•ADMINISTERED  TESTS'. 

•ARRANGED    CLASSl^OOM    E  N  V  I  OR  NM  EN  T  »  . 

•A'^RANGcD    SCHOOL    VISIT   i-RG.'-!    A   RESOURCE  PERSON'. 
•ATTENDED   SCHOOL  FUNCTION*. 
'DcV;-:L0PED    LEARNING  CENTERS'. 

•DIRECTED   PRODUCflON    OF    A   PLAY    GR  PR0GRAf4'. 

•DIRECTED    SHADING  ACTIVITIES'. 

•ENRICHMENT    ACTIVITIES' . 

•EVALUATED  PAPEfiS'. 

'EVALUATED    STUDENT  PROGRESS'S 

•GEN.    ACTIVITIES   AND  PROCEDURES'. 

•INDIVIDUAL    INS  TRUCT  IC.N^  . 

•LAi-'GE    GROUP  INSTRUCTION'. 

•LEAD   CLASSROOM  DISCUSSION.'. 

•  MADE    HOME    VISIT'  > 

•MADE    MArERlALS    AND/OR  DISPLAYS'. 
•OBSERVED   CLASS •♦ 
•OdSERVED   P5YCil  SERVICES', 
'O  .'SERVED    TEAM  TEACHING'. 
'PARENT    TEACHER  CONFERENCE?. 
'PLAM\E.D    ACTIVITIES    AROUND  UNITS', 
•PLANNEi;    AND    SUPE;'VISEO  ACTIVITIES'. 
•1>UANNED    GAMES    AND  ACTIVITIES^. 
•PLANNED    GROUP     I N ^ T R U C T I C N • . 
'PLANNED    WURK  TIME', 
•PLAVID    GAMES    WITH  CHILDREN', 
'PREPARED    INDEPENDENT  WCRK/, 
•PREPARED   Ll-SSGNS   FOR    CLASS'.  * 
•READ    STORIES    TO   CLASS'.  ' 
'SMALL    GiOUl-'  INSTRUCTION', 
•SOME    11:  AM  TEACHUJG', 

•  TAOGHT    ART '  , 
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•TAUM-.r    LANC.U/Vjt  ARTS't 
• TAUMIT    MATH' , 
•T  AUCMT    MUiSIC*  • 

•  T  AUdHT    P  .  f!  .  '  I 
'TAUGHT    SC  .'e.'sCti  •  . 
•TAUGHT    COCIAL  .ifULItUS't 

•  T  A'jr.H  r    READ  iNG  •  , 

•  TEAM    PLANNING'  . 

"SMALL    GKOUP    I  N  S  T  TtU  CT  £OM  •  « 
•U3:;D    A.JOIC-VI  SSiAL    fiOUlPMliNT*  . 
'wOOCtO    IN    ALL    AKKAS'  t 
•WJ-SKKO    WITH  CHILUfJI:N», 
•WO^^KifO    WITH    i'JPEI'.iN  STUDENTS'. 
'WOPKtD    WITH  GROUPS'. 

•wo^-Jcto  WITH  l':ar;jing  CHMTERS'  . 

•LiSrID    D  ((- I- E:r<;;rjT    TLACHING  TECHNIQUES'. 
'INDlViOUAL   C.LA3SROCM   CCNI-EhJ  tN  CE  S  •  . 
(       (  I  )  •     '  )  , 

/* 

DICTICNARY   OF    fH.E    ITEM    NAMES    ASSOCIATED    XITH  THE 
COOES   ^ie.COKOt.D    IN    PEP;SONAL    FOR  GPA. 
GP  A_CI  CT  {  0  :  6  )    CHARACTe.R  U  I  )  INITIAL 
(  •     •  . 

•1.5  CR  LESS*  . 
•1.5-2.0'. 

•  ^  .  1  -  <.'  .  5  »  , 
•2.6  -  3.0', 
'  J.  1  -  J.'j'  , 
•3.6  -    -v.  0  •  )  , 

/  * 

[5Ictiona;?y  of  the  item  ^JAMES  associated  with  the 

CJOES   RECOFJDED    IN    PER.SGNAL   FO.'^    THE    GRADE    LEVEL   OF  A 
CL/  SSPOO,>< .  */ 
G?;,VDl:_C-  ICT(  I  7  )    C^^  Ap  A  G  T  t  (U  1  H  )     I  N  I  T  I  AL  (  •  F  I R  ST  •  ,  'SECOND*  . 
• TH IPO'  ,  ' FOURTH'  ,' F  IFTH'  .  ' SI XTH'  ,' SEVENTH'  , ' EIGHTH* . 
■  PPE-K  I  NOHKGARTEN'  ,  •  K  I  NOEP.  GA  PT  EN  •  , 
'MULTI-AGE    PRI  MARY'  .' MULTI-AGE    Uf^PER  ELE«, 
'MIDDLE    SCHUOU ■  ,  • SPEC  !  AU    EDU CA T I  ON •  , • MUS I C  , 
'^^E  APING'  .  'PHYS  ICAL    ECUCAT  ION'  )  , 

/* 

DICTIONARY    OF    THf:    ITEM    NAMES   ASSOCIATED    WITH  THF 
COOES   PECO'-IOEC    IN   PEP,50NAL    FOR    GROUP.  ^/ 
GP{2)    CHARACTER!  I  C)    I  M  T  I.A  L  (  '  G  ROUP  '  ,  '  I  N  0  I V  I  CO  AL  •  )  . 
/" 

DICTIONARY  OF    THl:    ITEM    NAMES    ASSOCIATED    WITH  THE 
CODES   PECOr.UED    IN    P':;RS0NAL    for    LEVEL    IN   CEP.  */ 
LE  VEL^L;  I  CT  (0  :  4  )    CHAI^ACTCR  (  9  )    INITIAL!'     '  ,  '  IN  I  f  I A  TF  •  , 
•A  Sbl  STANT  •  .  'ASSOC  I. A  TE  '  ,  '  I  NTENSI  VE  '  )  . 

/» 

DICTIONARY  OF    THE    ITEM   NAMES   ASSOCIATED    WITH  THE 

CODES    PECOROxO    IN   PERSONAL   FOR    MARITAL    STATUS.  -*/ 

WARI  TAL_3TAT_DICT(0:  '*  )    CHARAGTERO)  INITIAL 

{  '     '  , 

'SI  rjCLE  •  I 

• MARP I  ED"  . 

"J  I  VCR  CEO'  . 

'  vj1DCv;ed'  )  . 

/* 

DICTIONARY   OF    THE    ITEM    NAMES    ASSOCIATFO    WITH  THE 
COOES    RECORDED    IN    PER;saNAL   FOR    THE    MYERS  ORIGGS 
TYPE. 

MYERS_i3R  ICGS_DICT(0:  I  6)    CH  AP  AC  TER  (  4  )    I N  I  T  I  AL  (  '  »  ,  •  I  3TJ  • 
.  •  I  STP'  ,  •  t;sTP'  ,  •  EST  J  •  ,  •  I3FJ  '  ,  '  ISFP  •  ,  •  FSrP'  ,  'ESFJ  •  , 

•  INF J*  ,  '  'NFP'  ,  ' ENFP  •  ,  'ENFJf  ,  •  I  NT  J'  ,'  INTP'  ,  'CNTP'  , 
'  k  N  T  J  •  )  t 

/* 

DICTIONARY   OF    THE    ITEf    NAMES    ASSOCIATED    WITH  THE 
COCfcS    PECOnOED    IN   PERSONAL    FOR    THE    QUARTER.  */ 
QUAii  TER_DICT(  O:'*  )    CHARACTER(6)  INITIAL 

(  '     •  . 

'F  ALL'  . 

•  WIN  TER  •  . 
•SPRING'. 

•  SUMMER'  »  . 

/■» 

DICTIONARY   OF    REOUIRED   COURSE    NAMES   ASSOCIATED  WITH 
THE    COOES    RtCOROEC    IN    PERSONAL.  ♦/ 
RtO_COU!>SE..D  I  C  r(  n    CMAWACrCRI  1  7)     INITIAl  ('EH'iOl', 

•  MSC;r::oo  '  . '  msc.j  >o  '  ,  .'  ms.u 0/ J  1 1  « ,  'php  .)6  i  •  ,  "phr  , 

'  SCH;;0  1  •  ,  <  MEOI  A    EOUI-PMENT'  .  'M'iDI  A   PRODUCTIONS'  )  . 

i'-'^''^"'*'  ^•AMES    ASSOCIATED    WITH   THE  HEQUEST 

i-  U  Uc:  S  * 

RECuesT_DICT<'3)    C  HARA  C  TER  (  1  J  )     I N  I  T  I  AL  (  '  M  YE  R3  URIGG5', 
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•Ue-.O.  COURSES'  ,  •  ■'f-G  ISTKA  rjON  «  ,  'l  .A.»,»U.A.  SUMMA!^Y». 
•f-"  te.LD  >  ,  >t-  ILKO    NUMMARY'  ,  'COMMU^)^  TV  J  • 

/* 

DICriONARV   OP    SCHOOL    NAMES   Ar,'3!.')C  I A  TCO    WITH    rUH  COOif;? 
R(iC(J«OL0    IN    PtnSONALk  ♦/ 
SCHOOL    OlCrC/J    C);/•^^<ACT(£R<  t'.i  )     I  Nt  T  I  AL  (  '  J  .  J  .  riNLFV, 

■  HA  «■  rMCJQNi:  •  ,  •   1  dn;?. y  lani gk  >  ,  •  li  r  vlewood'  t  •  sneui. •  • 

•Tt-:>v  ILL  lOLJ"  •  '  wKSf  rfOUU"  )  , 

/* 

CICTIQNAR.Y   CF    fH!£    ITt-..V    NAMES    ASSOCIATED    WITH  TI-£ 
CODES    KtCU.TUEO    IN   PLaSONAL   l-'OH    THE    AKEA  Oi- 

SP!iC  I  AL  I  ^AT  !  ON.  */ 
SPEC  I  AL  1  ^  AT  I  ON_OI  CV  (2  )    CHAqACTEr;  (  I  5)  INITIAL 
{  »  ELnVENTARY*  ,  •  F.Af^LY    CH  ILDHQOO*  )  > 

/* 

CICTIONA.^Y    OF    THF.    ITilM    NAMES   ASSOC  I A  TED    WITH  THE 
CODES    <:riCOROEO    IN   PL"RSONAL    POi<    THE    SVRGHGTMS  OIS^LAYEO 
DUKING   A    FIELD    £  X  PER  J  c  CJCE  .  */ 
STi^CNCThS    DICT(0;7'5J    C 1- AR  ACTER  (  A    )  INITIAL 
<  •     •  , 

'ADAPTS   MATERIALS   TC    ACHIEVEMENT  LEVELS*. 
•AWAFE    OF    INDlyiO:.!AL    !  NTERESTS  •  t 
■A<rARE   OF    INDIVIDUAL  NEEDS', 
•AWARE    OF    INDIVIDUAL  PflCOLEMS*. 
•CAPABLE' , 

'CHI-.DREN    LIKE    HER*  HIM)', 
'CCNCERNEO    .vITH   CHIL03  WELFARE', 
• CGNF I  DENT '  , 

•CCNSIRUCTS   CQQD  EVALUAflCN  INSTRUMENTS'. 

•  COOf^ERAT  I  VE'  , 
'CREATl VE'  , 
'OE^ENDAOLE' , 

•DESIRE    TO    HELP  CHlLDReN', 
'DESIRE    TO   LEARN' , 

•EFFECTIVE    CLASSROOM  CONTROL', 
'EMPHASIZES    .'NDlViDUAL  NEEDS', 
'EVALLATES   ACCURA^FLY' , 
'EXCELLENT  PLANNER', 
•^-^C  ELL  !£NT    R  APP  OR  r  •  , 

•EXCELLENT   RELATION    WITH  STAp:^', 
'  EXCELLi-NT    RELATION    WITH  PARENTS 
'EXCEPTIONALLY    CAPAULE    IN   A-Tf  , 
•EX;:C(-T  IOIjALLY    CAPAbiLE    IN   LANG. A,', 
•EXCFPTIO;vA..Li'    CAPAbLE    IN  MATH', 
•EXCEPTIONALLY    CAPAilLE    IN  MUSIC, 

•  EXCEPT  IGrJALLY    CAPAr-LE    IN  REAOINC, 
'  E  X  C  F  P  T  1 0  N  AL  L.  Y    C  A!>  A  J  U  ti    IN   SCI  t  i-l  C  E  ■  . 
•EXt-CPT  lONALLY    C A P .'. 0 1.  £    FN  S.S.', 
'FLEX  I  OLE'  , 

•GAINS    STUDENTS  TRUST', 

•GOES    UEYCND   WblAT    IS  EXPECTED". 

'  GCOD      aPPORT'  , 

•G jOO    VOICE    CO NT POL'  ■ 

•GOOD    WITH  CHILDREN', 

•GROaTH    !N    depend  10 ILI TY •  , 

•HELPS    STUDENTS    FEEL  SUCCESSFUL', 

•  I NNCVAT  iVE*  . 

•INTEREST    I,N    CHILOR.ENS  WORK', 

•iNiTIATES    CLASS    I N  VC)L  VEME  NT  •  , 

•KNO'-vLECGEABLt'  , 

•LARGE    GROUP  WORK', 

•LIKES    THIS    AGE  GROUP'. 

•LIKES    '.vORKiNG    WITH  CHILDREN', 

•MOTIVATES   AND    INTERESTS  STUDENTS', 

•  PAT  t  ENT '  , 
•PERSERVERENCF^  , 
•PLANS  EFFECTIVELY.', 
•PC^ITIVE  ATTITUDE.', 
'PRuFEGSIONAL    PRCMISE' . 
'  FRi5wPT  '  , 

•RESPONDS    'fttLL    TO   CRITICISM' , 
'SEES    h!(AT    NEEDS    TO    f3E  DCNE', 
•SENSE    OF    Pt SPONS 10 IL ITY ' , 
'SENSITIVE    TO    STUOENTS   FEEl  INGS', 
'SHOWS    IN  I T I  AT  I VE •  , 
'  SftALL    G^OUP  WORK', 

•  -3  YMPA  THE  TIC, 

•  TEACHES    FRI.M    CHIlORENS  INTERESTS', 
'  T  R  f-.  A  T  S    CHI  L  DR  E  N   I-  A  I  R  L  Y  '  • 

'  U^^DER  STANDS    CHILDREN',  *■ 
•USES    INDIVIDUAL  DIFFERENCES', 
•IjSES   OUTSIDE    RhSiURCES  WELL', 
'USES   PEER  TEACHING', 
'VERY    RE SPONS : OLE ' , 
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•wants   C.H1U0!?;-N    lO  UNOEi^SVANO  CONCEPTG'* 

•  ttt'LL   Pr)t.PAI<eO'  , 

»v»ni5K    WITH   L.-AHNING  PRCOI.EMS'. 

•v;GPK    in    ALL   )=HASc.5    OF    Cl.  ".ST.  ROOM    AC  F  I  V  I  T  Ih'3  »  » 
•LHH  IC  PiNT •  , 

•  LN  rHOS I  AST  t  C«  . 

•  (- P?  I  tNOLY*  > 

•OOUO    COMMAND   OF  ENGLISH*, 

•  GOOD    tot AS'  • 
'PO I StU  •  )  , 

/* 

DICTrCNARY   OF    THE    ITt-.M    NAMf-:S    ASSOCIATl^O    WITH  TH£ 
CUDF.S   RtCO'^^DEO    t  .M    Pt'KSONAL    KOw    SULl ST  I  TUT t  , 
S'J^H^)    CHAKACTER  (  1  0)     I  N  I  T  I  AL  t  •  SU(3  S  T  t  f  IJ  TE  '  .  '  Rl£G  ULA  ft 
/  * 

DICTIONARY   OF    THE    ITEf    NAMES    A53CCIATEO    MTH  THE 
CCOuS    PECOkOHD    in   PdnsUNAL    rOR    JR-WEL  EXPcRItNCE. 

TK  AV'-:u_Exp_D  icr  {  0  : 1  9 ).  cnARAcrei;<     J  initial 
( •   •  t 

' AF^ !CA» , 
•ASIA*  , 

•iJERf^UOA   AiND  BAHAMAS'. 
• CANACA ' • 
'CAkIHOEAN* , 

'C!^nti;al  amer  ica»  . 

•EunCPE' , 

'  MliXICO'  . 

•MIGCLE  EAST', 

•P  AC  I  )-  IC    ISLANDS'  t 

•U.S. A,-    ALL  OVEH*. 

•FAR    A/ESTEKN  STATcS". 

"'tIDDLH    ATLANTIC  STATES', 

'MIOwesrEPN  STATES'. 

•NEW    ENGLAND  STATES', 

•PLA  ti\S    STATES'  , 

•:?OCKY    "lOUNTAIN  STATES', 

'  SOLTHEMSTEr<N  STATES', 

'  SOLTh  aESTEP.n  STATES'). 

/* 

OICTIGNA^^Y   OF    THE    ITLIM    NAMES   ASSOCIATED    WITH  THE 
CUOES    RECOkOEO    in   PERSONAL   r'Or>.    y.'O^K  EXPERIENCE. 
«Ci5K_CXP_01CT(0:  lu)    CFA(<ACTLR(^5)  INITIAL 
{  '     '  , 

•«Ar3YS  ITTEP'  , 

•  CAMP    COUNSf.LUl'J'  . 
'CLERK • , 

'  CLUG    .»OPX  •  > 
•DAY    C  AP.E    CENTER  '  , 
'LAiiOr;  A  TOP  V  TECHMCiIAN*, 
' L  r  r TLE     THEATRE '  . 

•  NUKSEf^  Y    SCHOOL  '  , 
■t!ECEFT  ION  IST'  , 
'rtECREATlCN   CENTPR'  , 

•  SALESPERSON'  , 

•  SEC.-ETARY'  , 
'STUDENT  ASSISTANT?, 
«  SU33  I  1 TUTE'  . 

'  TEACHERS    A  10'  , 
' TOUR    GUIDE' , 
'TUTOR  »  , 

•CTMER    WORK    CLASS  XP;  ICAT  tON/  )  , 

DICTIONARY   OF    THE    ITEM    NAMES   ASSOCIATED    WITH  TH-^ 
COOES    RECORD-.C    IN    PERS;3NAL   FOR    THE    NEEDS  DISPLAYED 
DCr-ING    A    rlEl.O  EaI-ERIENCE. 

W'":/i><NE.-.ScS_OlCT(0:  ?0)    CHARACTER!  3!i  )  INITIAL 
'  A^T    EXPER  lENCE  •  , 

'6E.TER    mAPPORT    WITH  STUPFNTS', 
'OLTfER    RAPPORT    WITH  STAFF.', 
'HEI7E<    RAPPORT    WITH  PARENTS', 
•OETTtj?   UMrERSTANOI,\G    OF  CHILDREN', 
'OEr/'ER    VOICE    CONT/iCL'  , 
'  CHALKliOARO    EXPER  lENCE'  , 
'CONCERN   FOR    C  ^ )  I  L  OR.  f  INS  WELfi"ARe', 
'  O  I  SC  iPl.  INE    EXP'.R  I  C  KCK  '  , 
'EVALUATION    EXPERIENCE' , 
'EXPERIENCE    DlRECTl^JG  LESSONS', 
•EXPOSURE    TO   LOWER  GRA0F5'., 

•Lxpcsui;::  tc  more  graofs^, 

•EXPCSURC    TO   UPPER  CRADF<;«, 
•GROUP    JiANAGEMENT    E  XP  (IR  I  ENCF  '  , 
'LANGUAGE    ARTS  EXPERIENCE', 


•UUvLH    INC(;y(:      -<  PL«  I  EN  Ct  •  t 
•MATH    HXPtK  !fiN-;:r.'  • 

•MOWe    TGAC.MitJO    TllCi  iN  I  OUK-j«  , 

•wur.  ic  Exp'-n  n-.NCf;* , 

•P  ..  (•.  .    lIXPuP  I  'dt^CE  '  , 
'POSITIVE  ATTirUOf*. 
•lit^arNO    f:>Pf£«  IF.NCt:'  , 

•3C!t"NCfc:  EXPtr  I  fiNca «  . 

•;iMAL!.    GROUP    fiXpei?  1  EMCe»  . 

•SOCIAL  sTuunz;;  expiriuENCE*. 
•rtAoiNG  Eap::s lENCt*  t 

•TiZariNG   CXi^t:?  I  K.\Ci;  •  , 

•  rO   ADAP  T    OiiT  rhZI?  •  , 

•TO  AV/ARL   Ot-     IMDIVIOUAL  INTl5ReSTS»t 

•  ru    SCi    A'.vAPF.   OF    UJDIViDUAL  PKOOL.fiMS't 

•  TO    13(1    Cu.NF  SD!£NT'  > 

•  r Q  t?e  CfRf:  at  i vh  •  . 

•TO    BE    J:£PLNDAULi£«  i 

•  rO   0;£    INNOVAT  I  V!-.  •  , 

•TO  L-c  Lt:ss  srNStTtvf?;*  > 

■  TO  'JU  G  AN  I  ^  E 12  •  , 

•TO    nE    MOPE  SENSITCVC*, 

•TO    BE    PAT  IENI"^  > 

•  TO   BE    PREPARED •  . 
'  TO   HF.    PUNCTUAL  '  • 
•TO    tiE  RESPONSIBLE?, 
•TO    tie    RELAXED'  , 

•TO   BE    'BILLING    TO   HELP  CHILDREN*, 
•TO   tit:    WILLING    TC   HELP  COWOi^KE«S«, 
•TC    CCMPLETE  PROJECTS', 

•TO    CCNSTRUCT    EVALUATION  INSTRUMENTS*, 

•TO   CONTROL    LA.^Gi:  Gr<0UP3^, 

•TC    EMPHASISE    INDIVIDUAL  NEEDS*, 

•TO    HELP    STUDENTS   h'EEL    SUC CE SS FU L'- , 

•TO    INITIATE    CLA',-5  INVOLVEMENT*, 

'  TO    PLAN    OETTEi?  •  , 

•  TO   PREP AR  E    UN  ITS', 

•TO  HECOGNIZE    INOtViDUAL   NEEDS • , 

•  TU    RELATE    UET  THR'  , 

•TO   hESP'jNL'    aiTT'^R    TO  CRITICISM'. 
'TO   SHO.V    INi  T  I  AT  IVB»  , 

•TO    TEACH    EKOM    CHILCRENS  INTEREST*. 

•TO    TREAT    STUD.^iNT'-j  FAIttLY*, 

•lO  USE   OUTSIOti   RESLUKCES  BETTER*, 

■TO    USE    PEER  TEACHING', 

•WORK    IN   CREATIVE  ARHAS^. 

'  xOhK    WITH   LEAi?MNG    PROtJLEMS  *  , 

•work    in    ALL    AREAS'  > 

•WORK    .VlTH    CIFFERENT  MATERIALS*. 

(2  »(  I J  •    •  ) ; 

CECLARE 
/* 

DICTIONARY  OF    THE    FACULTY    MEMBER'S    NAMES  ASSOCIATED 
AlTH    THE    CODES    :<ECOKDt:0    IN   PERSONAL.  */ 
FACULTY  (ao)    CHA;;.  aCTER  (  l  4  )     IN  :  T  I  AL  (•  BERNARD  •  ,  •CURRAN'  , 
•OE  TLPE       •Ft  Y'  .  'GOLDMAN^  ,  •  H I  LL  I  A  SO  •  ,  •  .1 ES  T  ER  •  , 
•i<  IN^ER  '  ,  •  LtVM  3  •  ,  'L.  ITCHER  ■  ,  ■  MA  R  T  I  NELL  U  ■  ,  '  NE/;CCM3*  . 
• ULSGN '  , ' PENLAND'  , ■ ROkE •  , • SERAPH  I NE •  ,  ' SHEA •  ,  '3M ITM*  , 

•  T  I  SON  •  ,  •  W  I  LMOT  •  ,  '  Ki5ALL  '  ,  '  CREEDON'  ,  •  LEV  INE*  , 

•  HEDGES  *  ,  • GR IWM'  , ' DORMAN'  ) . 

/* 

FACULTY   NU.IQERS    OF    TME    SEMINAR   LEADERS   BY    TEAM.  */ 

FACULTY_N0(  M  in:  MAX  ,/^  )    FIXED  BINARY, 

/* 

AN   ENTRY    POINT.    FOR    INSTANCE    ENTKY(l),     INDICATES  THE 
NU^'L)E^    OF    THE   POSITION    PRECF.EOING   THE    BEGINNING  OF 
THIS    SteSTANTIVE    AREA    IN    LEARNING    A.  ♦/ 
ENTRY(ia)    FIXED    UINARY    I N  I  T  I  AL ( 0  ,  6 .  I  9 , 3  I  , 4 1 ,       , 56 , 66 . 

e^  ,  a  v  ,0-5  ,9'i)  , 

CUR_DATE    CHARACTER  (  ,0)  , 
FACULTY*'    FIXED    l'.  I  NARY  , 
ULD   FILE    R,';COKU  SEQUENTIAL, 
FLAG    fJITII}     IN  I  r  [  AL(  •  0*  0)  , 
SEX    NAVE    CHARACTEIU/ )  , 
S:i_NU    CHARACTER  (  9  )  ; 

/* 


ENl  T  I  ALI  ('E  FACL'LTY, 
FACULTY    NO    "  O; 

OPEN   F  lLE(r,Y3PRINT>    L  I  ,\' E  S  I  ^E  (  I  JO  )  ; 


*/ 
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CN   GNCOUNTlHrUNG   AN    CUO   01"   FILtE   ON  OLD.    REWIND  TtHl  TAPE, 
If-    FLAG    IS    St'T    TO    'I'B,    WtAO    T  hf   NEXT    SOCIAL  SECURITY 
NUMBL-R  .       It-    SS_NO    IS    AN    •       , .  Q  ET^rX    FLAG    TO    •  0*  (3  fiNO 
OHTAIN    A   Nf-W   RhQUHSr,    OrhEfiWiSE    CONTINUa   PROCESSING  THE 
SOCIAL    StCUHlTY   NIjMULRS.  ^ 

*/ 

CN    !£  NOr  ILK  <  OLD)  OF.GIN; 
CLO^jE  FILSfOLOi; 
CPEN  FILt;{ULD)J 
IF    f-LAG    =    "I'U    THf:N   DC  I 

GET   FILECSYSIN)     ciOlTCSS    NO  )  (  CCL  (  I  )  .  A  (  9  )  >  ; 
IF    SS_NQ   ~    • *>     THEN  DOl~ 

FLAG  =  'o'a; 
GO  TO  next; 

END  : 

ELSE   GO    TC  loop; 

END ; 
GO  TO  next; 

ENO; 

CN    ENCOUNTERING    A    SUB  SCR  I P  TK  AN  GE   ER-^OR,    PPvINf    AN  ERROR 
MESSAGE    AND    TfiANSFER    TO    PROCESS    THE    NEXT    RECORD  FOP. 
This    f'AR-ICULAR    REOUEST  .  */ 
CN    SLdSCR  I  PTRANGE  13EG£N: 

PUT    FILE  »  SYSPr;  INT  )    EJ  I  r  (  50C_SEC_N0      SUBSCRIPT  QUTSICE' 

.•    LEGAL    BOUNDS'  )  I  A  ,CaL(  J?.  )  ,2  AJ; 
IF    REQLEST.T  YPE    =    I    THEN    GO   TO  GROUPS; 
ELSE    GO    TU  single: 

end; 


CN  ENCOUNTERING  THE  ENO  O^  THE  REQUESTS  TRANSFER  TO 
F IN  I SH  . 

CN    ENOFILE ( SYS t N>    GO    TO  FINISH; 


Ci\  ENCOUNTERING  THE  ENO  OF  A  PAGE  OF  PRINT.  PRINT  THE 
HtADER  INFORMATION. 


ON  ENOPAGE ( SySPR INT) 
PLT  F  tLT.  (  SYSPP.INT  ) 
P',^T    FILt";(SY5PRlNT  ) 

•description:  LI; 


oegin; 

EOTT(CUR    CATE ) ( PAGE  .A  )  ; 
cD  IT (' ALL  'OUTPUT 
■TING    UF    ALL    DATA    ON  STUDENTS 


*/ 


AS 


/* 


'RCClU<;STL-D    tJY    PACULTY   ME  M  HE  R  5  ■  ,  •  RE- 0  UES  T  FOR 
FaCUL  T  Y '.FACULl  Y.»  )  )  (  SK  IP  ,  A,  SS;  IP  .;!    A, SKIP, 2  A); 
PLT    t- ILE  (  SYSPR  INT  J    EO[T('S.S.    NUMBER    AND   N  AM  E  •  ,  •  J  T  E.M  •  , 

•  CONTENTS'  .'  .  ;  •,•  .) 

<SKIP<6)  ,2    (  COl.  {  1  )  .  A,  X(  12)  .A,X(l  1)  ,  aTs  !<  I  P(  oTTT  J 

put  f ile( syspr int )  sk i p ( 2 > ; 
end; 


READ    THE    CURRENT  DATE. 

GET   .'-ILE(SrSIN)    GO  I  T  (  CUH  _CATE)  {  COL  (  1  )  .  A  {  0)  )  ; 


READ    THE    NUMBER    OF    TEAMS    TO   3E    PROCESSED.      THEN    FOR  FACH 
TcA,v    READ    THf.    TEAM    NU'IBER,    THE    NUMflE  R    UF    SFMINARS    TO 'b£ 
PROCESSED.    AND    THE    SEMINAR    NUMBER    AND    FACUl  TY  NUMQER 
OF    EACH    SEMINAR    TO    I'.E  PROCESSED. 

GC r    FILEISYSIN)    EOITINQ    C A RO S ) < C CL { I ) , r ( ? ) ) : 
DO    t    =    I    TU  NO_CARDS; 

GET    FILECSYSIN)    E  D  i  T  (  TE  AM ,  L  I M  IT  ,  {  S  EM  I  N  AR  *  .  F  ACULT  Y  NO  ( 
TEAM#,S£MINAR<()    DO    J         1    TC   L  I  M  I  T  )  )  (  COL  (  I  )  ,  2  (F(T). 
X(4M.a    (F(l),X('O.F(;-'J,X(3)  ))  ; 
END  ; 

/♦ 


REAC    THE    INITIAL   DATA   FOR    TSE    NEXT    FACULTY  MEOUEST. 

GET    FILE(3YSIN)    ED  I  T  (  FA  CUL  T  Y  *  ,  REOU  ES  f.    TYPE, TEAM*. 
^^^SEMINAR,*)  (COL(  I  )  ,F(2)  ,a(  J)  .  J    (  F  (  1  )  ,  X  (  A  )  )  )  ; 

ir.jM,n-'^''^'^^'-^^  '5  P'^OCESSING    IS    TO  tlE   DONE  OY 

IF   REOU£ST_TYPE  ^    I    THEN  DO;  '  *^ 
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/* 

MEAO   A  tiECORD   KKOM   THE   MAIN  K£Le» 

♦/ 

GT'OUPS:         SCAD    f-ILECOLO)     I  M  V  O  (  P  AL  )  J 

/» 

ChliCK    IF    THIS    STUOEUT    13    IN    THE    TEAM   A*ND  SEMINA.T 
CUP.RcNTLY    btING  P^JINTKD. 

*/ 

IF   PERSONAL. TEAM   -    rtiAM*    t  PER  SONAL.  SEM I NAS  =  SEMINARi/ 
THEN  DQ; 
/* 

PRINT    THE    HhlADHft  INFORMATION. 

PUT  p  :le(  sy<;p,\  IN  r )  ed  ir  (  cup_date  )  (  page  ,a  ) ; 

PJT   FILflf  SYSPrnNT)    EDIK  'ALL.'  ,  'OUTPUr  », 

'Ocscr;  IPX  i  CN :  LtsriNC.  of  all  oa^a  on  students  as  • 

1  •  KEOUL-.S  TiT.D    GY    FACULTY    MEM tlE RS  »  ,  •  R c'QU E ST    FOrt  •» 
FACUL rY( FACULTY »)  j  (  SKI P ,A , SX IP  , J    A, SKIP, a    A>  ; 

PRINT    THE    STUDENT'S    SOCIAL    SECURITY    NUMOER    AND  NAME. 

*/ 

PUT   F ILE (SYSPR INT )    ED!T(«S^S.    NUMSER    AND  NAME*. 

■  ITEM*  ,  •CONTENTS'  >  •  ;  .  •  ,  •    _       •  , 

'  '  )  (  SK  IP(  e  J  ,2    (  COL  (T)  ,  A  ,X{T<2  J  ,A,X(TlT~A, 

s.<iP(0)  )  J ; 

PUT   FILE(  SYSPR  I  NT)    F.  IJ  I  T  (  SCC_SE  C  NO.SUOSTRC 

PERSONAL  .LAST  ,  I  ,  1  NQEXI  PERSON  AL  .LAST  ,  •  •)-n  ,|  |  •,' 
il    PERSONAL. F  IR3T ) t SKIP (2 )  ,A ,CaL(  6>  .A)  ; 

^* 

CALL   THE    PROCEDURE  P.^INT    TO   PRINT    INFORMATION  ABOUT 
THIS  SlUOENTf 

CALL  print; 
end; 


TRANSFER    TO   GROUPS  TO   PROCESS   A   NE      STUDENT  RECORD. 

*/ 

GO   TO  Gr.OUPS: 

end; 
/* 


IF  THE  REQUEST  TYPE  ?F  ZERO»  PfiOCESS ING 
INDIVIDUAL    SOCIAL    SECURITY    NUMEIERS  . 


FLAG  = 


•  I  •  b; 


ELSE  do; 


IS   TO   BE  OONE 


single: 


READ  THE  SOCIAL  SECUftlTY  NUMBER  OF  THE  NEXT  RECORD  TO 
oE  PRINTED. 


GET   FiLE(SYSIN)    EDIT(SS   NO ) ( COL ( I ) , A ( 9 ) ) ; 


*/ 


IF    THE    SOCIAL    SECURITY    NUMBER    IS    AN  WHICH 
INCICATES   THE    END    OF    THE    INDfVtDUAL   REQUESTS,  REW.'IND 
THE    TAPE   AND    TRANSFER   TO   READ   THE   NEXT  REQUEST. 

IF    SS_NO    -    •*'    THEN  DO ; 
CLOSE    F ILE ( OLD )  ; 
OPEN   F ILE ( CLO) ; 

GO  TO  next; 

END  ; 


*/ 


FRINT  THE   HEADER  INFORMATIONi 


PUT  F 

pu  r  F 

•  QE 

'  p  a 

F  AC 
F  U 1  i- 
•CC 
<  SK 


I  LEI 
ILE  ( 
SCR  I 

QUE;i 
UL  r  Y 
ILE{ 
NTEN 
.(  P  '  (> 


AS 


SYSPHINT)    EOITICUR    DA  TE  5  (  PAGE  , 'V  )  ; 
:>YS.Pi-(!NT)    t:D  I  T  (  •  ALL  •  ,  'OIJTPUT  ', 
PTICN:    LISTING   OF    ALL    DATA   UN  STUDENTS 
Tf.O    Ur    FACULTY    N'F  MOE  R  S  •  ,  •  RE  OU  F  S  T    FOR  • 
(  FA  CULT  V  „^  ;  )  {  SKIP  ,  A  ,  SK  IP  .  J-  A  ,  SK  IP..?    A  )  ; 
SVSn  UND    EDITC'S.S.    NUM'JER   AND  N AM E •  ,  •  .J  TEM  •  , 
a-'  '  '   -  _'i'  •» 

)  .  -.l   { t:o_  <  1  r ,  A,  XI  i"i:T7A  .xT;  i )  .aTsk  IPI  cTyTT;  


RBAO    A  RECORD  FROM   THE   MAIN  FILE. 
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*/ 

lccp:  j-a.ti'.aLC)  into' t^irRsoNAL ) ; 

/* 

IK    THE   BECORO   TO    t;E  PniNTED   HAS   NOT   YET   l.EEN  KOUNO  IN 
THE   MAIN    ru.Ef    'jET   A   NEW  RECORO. 

*/ 

IF   PERSONAL. SOC   SEC_NC   <   S5_Na    THEN  GO-  TU  LOOP; 
/*  ~ 

IP    THF   RECOPD   TO    I3E   PRINTED    ^OES   NOT   EXIST    IN    THE  MAIN 
riLE.    PHINT    THE    SOCIAL    SECUl-.ITr   N!JMi3ER    WITH  THE 
MESSAGE    •+MISSING'.      READ    THE    NEXT    SOCIAL  SECURITY 
NUMDER.       IK    IT    IS    AN    •*'»    RE',((1NU    THE   TAPE   ANO   OBTAIN  A 
NEa  Rl-;GU£ST. 

*/ 

ir    PERSCNAL . SCC_SEC_Na    >    SS_NO    THEN  OO; 

PUr   K  I  LE  (  SYSPR  I  MTJ    ECITISS   NO  ,  •  *M  I  SS  ING  »  )  (  5K  IP  ( )  . 

A  ,  X  (  2  0  >  .  A  J  ; 
GET    KILE(SYSIN)    E0tT(S5    NO  )  ( SK I P i A ( 9 )  } ; 
IK    SS_NO    -  THEN  OO; 

CLOSE  FILE{OLO) : 

OPEN  rILE<OLO); 

GO  TO  next; 

end; 
GO  rc  loop; 
end; 

/* 

print    the   STUDENT'S   SOCIAL   SECURITY   NUMBER   ANO  NAME. 

*/ 

PUT    FILE! SYSPP INT )    EOIT<SOC_SEC  NC,SUBSTR< 

PERSONAL. LAST.  I  .  INOExCPERSONAL.LASr, •     ')-!)  |i 
I i    PtRSCNAL .FIRST){SKIP(2),A,CGL(6).A); 

/* 

CALL    THE    PROCEDURE  PRINT    TO   PRINT    INFORMATION  ABOUT 
THIS  STUOfNT. 

*/ 

CALL  print; 
/* 

TRANSFER    TO    SINGLE   TO   PSGCES5    A    NEW    STUDENT  RECORO. 

*/ 

GC  TC  single; 
end; 

/* 

THE   PROCEDURE   PRINT    PRINTS  ALU   INFORMATION   CONTAINED  IN 
A    STUDENT'S  RECORD, 

*/ 

print:  procedure; 
/* 

PRINT    THE    STUDENT'S   PERMANENT  ADDRESS. 

*/ 

PUT    F ILE ( SYSPR INT)    EDITI'HOME    AD DR . •  )  { COL t 32 » , A )  ; 
PERM_LENGTH   =    I  NDE  X  I  PE  R  ,v_  AODR  .  C  I  T  Y  .  •  'i: 
IF    PERM_LENGTH   =    0    THEN    PERM_LENGTH  =20: 
PUT    FILE! SY5PRINT)    E 0  I T ( P ER M_ADDK . S T RE ET . 
SUBSTR(PERM.  AODR.CITY.l  ,PERM_LENGTH 

-1».'.    •  ,PERf>«_AL)DR.Sr/»TE,PERM    ADDR  .Z  I P  )  (  COL  (  46  )  -  A  . 
COL( 46)  .J    A.X(  1 )  >A}  ; 

/* 

PRINT    THE    STUDENT'S   PERMANENT    RHONE  NUMBErt. 

*/ 

PUT   FILE(SYSPRINT)    EOITChCyE   RHONE', PERM  PHONE  )  (  SK  IP  {  2) 
.COL<  J2)  ,A  ,COL{46)  ,A)  ; 

/♦ 

PRINT    The    STUDENT'S    LOCAL  ADDRESS. 

*/ 

Pur    F  ILE  (  SYSPF  INT  )    fcOITCLOCAL    AODR  .  '  )  (  COL  (  J2  )  ,  A  >  ; 
LOC  AL_Lt:"NGTH    =    I  NDE  X  (  LO  C  AL_  A  DD  R  .  C  I  TY  ,  '  »); 
IF    LOCAL_LCNGTH   =    0    THEN   LOCAL_LENGTH   =    20 ; 
PUT    F I LE< SYSPR  INT )    ED  I T  ( LOC AL_ AO OR .5 TR EE T , 
SUOS  \^ (LOCAL_AODR .C I r Y .  I  . LOC AL_LENGTH 

-1).'.    • .LOCAL_ADDR. STATE, LOCAL    ADOR . ^ I P ) { COL ( ^6 ) , A . 
CCLI '>6>  ,J    A,  X(  I  )  ,A)  ;  "  , 

PRINT    THE   STUDENT'S   LUCAL  PHONE  NUMOER. 
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Pur  HL;:(nvsF'f:iNT>  rcrrcLOCAL  »n«N[;«  ,uocal  PHOMf-) 

PHtNT    TH'd    STOOEN  r'S    SKX  . 

*/ 

IF    SEX    ~    'M'    THKN    5EX_<NAMe  --  •MALb:*; 

CL^if.    r.tX_NAMfi         'H-MAIF*;  * 
PUT    F!Ll£(Sy  SPRINT)    E  C  f  T  (  •       X  •  ,  3G  X   MAMH  )  (  SK.  IP  (  2  >  ,  COL  < -52  >  , 

A  ,COL(  .16)  ,A)  ; 

/•  f 

Pf^INT    THE    STUDENT'S   niR.TH  DATE* 

PUT    FILI£(SYSP«  £NT)    HO  I  T  <  •  (3  I  RT  HC  A  Y  •  ,  O  I  q  TH    0  AT  E  .MO.NTH  .  • /*f 
13  in  TH^DATE  .OAY  ,  •  /  ■  .  U  I  R  TM_D  AT  t  .  Yl?  )  (  SXIPf.?)  .  COL  (3a)  .A, 

ccLC^'jj.j  (r(2).A)): 


PRINT    THE   STUDENT'S   MAP.ITAL  STATUS. 

PUT    FILE  (  S  YSPP.  INT)    E  0  I  T  {  '    AR  I  T  AL  STATE', 

MARITAL_GTAT_OICT{MAR  ITAL_STAT  ))  {3KIP{2)  ,COL( J2)  ,A, 
C0L('>6),A); 

/* 

PRINT   HQ'A    MANY    DEPENDENT    CHILDREN    THIS    STUDENf  HAS. 

PUT   FILE  (SYSPPINT)    ECITCCGP.    CH  IL  OR  EN  •  ,  OEP  CHILDREN) 

(  SKIP (2)  ,COL{ J2)  .A.COL(46)  ,F(a>)  : 
/»  . 


Pi^INT    THE   AGE  RANGE    OF    THE    STUDENT'S    DEPENDENT  CHILDREN. 

PUT    FlLF(SYSPi:iNT)    ECirCAGE   H  AN  GE  •,' YOUNGEST  = 

AG£_,^A.NC.E(  1)  ,'  DLDESr  =  '  ,AGE_:^ANGE  (2J)  (SKIP(2)  ,COL(  J2) 
.  fi  ,CCl  ('►6)  fA,Fl2),X(J>,A,r(2J); 

/# 

PRINT    THE    STUDENT '5;    ^yQKK  EXPERIENCES. 

*/ 

PUT    FILE(  SYSPR  :iJT5    EDirt'ViORK   EXP-.',{WCnK    EXP  DICT 

tvVCRK_EXP(NUM)  )    DU   NUM    =    1    TO    6 )  )  (  SM  P  (  2  )  ,  CUL  (:J2  )  ,  A  , 
^^CCJL(*6),2    (A.X^-Si  )  .A,CaL(51)  5-1  (A.XCi))); 

DRINT    THE   STUDENT'S    TRAVEL   E XPER lENCHS . 

*/ 

PUT   f-ILEfSYSPHINT)    EDITCTRAVEL   EX? .',( TRAVEL   EXP  DICT 
<  TRA  VEL.EXPI  NUM)  )    DO    NU.M     -    1    T  C  6  ;  )  (       I  P  ( 2  )  TcOlT  J2  )  ,  A  . 
CCL(/i6),2    {  A  .X(.33  >  ,A  ,  COLJSl  )  .3  (A,X<J))); 

/* 

PRINT     ■•NFORMAT  ION   ABOUT    THE   STUDENT'S   CURRENT  EMPLOYMENT 

PUT    F !u£< SY SPR  INf )    EDI T (' E MPLOYMENT ',» EMPLOYER    =  », 
EMPLOYER  ,' HOUSS    ■.VORKEC   PER    WEEK    -    ',HRS    PER   WK ) 
(SKIP  (2)  ,C0L{J2)  .A.CCLClb)  .2    A  ,X  (3  )  ,  A  ,  fT2  )  )T 

/  + 

PRINT    INFORMATION   AGOUT    THE  COLLEGES   ThF  STUDENT 
AT  TENDED i 

PUT  F  ILE<  SYSP.;  INT)  EDIT  (  'CCLLEGFS'  )(  SK  IP(2)  ,C0L(3.'.  )  ,.\}V 
DO    NUM    =    1     TO    A    WH  ILE(  {NST  ITUT  ION(  NJM)  •  •); 

PUT    F1LE{  SYSPRINT)    E D  I  T (■  I NS T I TU T I  ON   -  '.INSTITUTION 

{NUM).'t-ROM   =    '  .BE^i  IN  (NUM)  .  '  TD    ---    •  ,  END  (  NU-U  )  (  SK  I  P  (  ?  ) 

.CC_(^6),2    A.X(-U,2    A.X(J).2    A);  om.  i^., 

e  N  0 ; 

/* 


PRINT    INFORMATION   AOOUT    THE    STUDENT • S    GP A . 

PUT    Fn.E(SYSPRINT)    E  0  I  T  (  <  GP  A  •  ,  UP  A    D  I  CT  (  CP  A  )  )  (  SK  I P  (  2  >  , 
COL(  32)  .A  ,CQL(  <V6  )  ,A)  ; 


PRINT    THE    STUDENT'S    MYERS    QRIGGS  TYPE. 

PUT  FILC(SYSPRINT)  ECIT< 'MYERS  HR I GG S • , M YER S  URIGGS  PICT 
^ ^  (  M  Y EH  S^liR  !  GG S  )  )  {  S  K  I  P  (  a  )  .  C  CH.  {  32  )  .  A  ,  COL  t  '^6  )  ,  A  )  ;  - 
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PRINT    TH£    STUOt-'NTTj   CCP    ENTIMNCii  DAVE. 

*/ 

PUT  FiLt"(  sv?;;':-(iNT)  t:ni T  ( •  CEP_i:NTaANCi:' .  •  year  = 
C'.iy  r^nrrtAM  i. .  vR.  '  ouARfEn      •  ,quahter_oic  r 

(  CC.P_HNTHANCI-:  .Orr;  J  ,  '  HCIIWS  .  COMPLETFO   -    '.MRS  COM) 

(  SMP(  2)  ,COL( -52)  tA  .CULi  46)         A,XCJ),2    A  ,  X  (  J  j  .  A  ,  F  (  5  •  I  )  ) 

/« 

PRINT   THE    SiTUOENT'S    AUEA   CF    SPEC  I  AL I  /{AT  I  ON  . 

*/ 

PUT    ErL.E(  SYSPRINT)    E  0  I  f  (  •  COMC  ENT  HA  T  I  ON  •  , 

SPEC  I  AL  I       r  I  CN   D  i  CT  (5PECI  AL  I  iATI  ON  )  )  (SK  IP(2)  ,  COL  (.J  2)  ,  A 
.CCL<  46)  . A)  ; 

/* 

PitlNf    THE    STUDENT'S  TEAI'. 

*/ 

PUT    Flue  (  SYSPf:  INT  )    EOI  r  (  •  team*  ,TEAM)  (skip  {2)  ,C0L  (32)  ,  A, 
CGL(46>  ,f-  (  I  )  )  ; 

/« 

PRINT   TME   name   of   the  STUDENT'S    SEMINAR  LEADER. 

*/ 

PUT   FILE (3YSPR  INT)    EO I T (• SEM  INAR ', FACULTY ( FACUL TV  NO 
{ rEAW.oEMINAR) ) ) (SKIP (2) ,COL( 3  2) .A ,CUL(46) ,A) ; 

/" 

PRINT    THE    STUDENT'S    EXPECTED    DATE   OF  GRADUATION. 

*/ 

PUT    r  ILE (SYSPR  INT )    EOIT('GRAD.    DATE',  'YEAR   =  •, 
EXP_GRAO    DATE  .  YR  •  •  DUAKTER    =    .'.QUARTER  OICT 
{  EXP_Gr<AD_DATE  .QTR  )  )  (  SK  IP  (2)  .COL{  3  2)  .A,CCL(46).A,F(2). 
X (3 )  ,2   A)  ; 

PRI^T    INFORMATION    ABOUT    THE    STUDENT'S   REOUIREO  COURSES. 

■»/ 

PUT  FILE(SYSFRINT)  EOITCREO.  CO  UT  SE  S  '  )  (  S  .<  I  P  (  2  )  ,  COL  J  J  2  >  ,  A  ) 
/* 


pr>INT    EXPLANATORY    INFUP.MATION  ABOUT    THE  GRADE. 

PUT    FILE( SYSPR IN r )    EDIT('GRADE    -    *     INDICATES  COURSE'. 

'     tJEGU  I  REMENT    HAS    REEN    MET  '  )  (  COL  (  4  6  )  ,  2  A); 
DO    MUM    -    1    TO  9; 

PUT    F  ILE ( SYSPR 1  NT )    EDITCREQ    COUR SE _D I C T ( NUM)  , 

■GRADE    =    •  .KE0_CQUR:SE_GRADE(NJM)  )(COL{  A6),A.  X(  4)  , 

2  A)  ; 
end; 

/* 

PRINT    INFORMATION   ABOUT    THE    STUDENT'S  REGISTRATIONS. 

*/ 

PUT  FILE( SYSPRINT)  E D I T  (  • RE G I S TR A T I  ON '  )  ( S K  I P ( 2 )  .  COL ( 32)  .A) 
DC    NUM   =    I    TO    S    WH  ILE  (  SEG  I  STRAT  1  OS  (  NUM  >  .  YR    -.=  0)5 

PUT    '^ILEI  SYSPR  INT  )    ED  I  T  (  •  YR    --    •  ,  R  E  G  I  STR  AT  I  ON  (  NUM  )  .  YR  , 
•QTR    =    '  >REG ISTRAT I CN( NUM)  kQTR )  I C0L(46) , A, F( 2)  ,X( 3)  , 

A ,  F  ( 1 1 ) : 

00   isOUNT    -    1    TO    S    HHtUE  (  COURSE_NO(  NUM ,  KOUNT)    -.=    '  •): 
PUT    FILEC SYSPRI NT)    EOITICCURSE    N G ( NUM , KOUN T ) , 

•MRS    =    '  .H.RSINUM,  KOUNf  ), 'GRACE    =  '.REGISTRATION 
(NUM) . GRADE (KOUNT) ) (C0L(6o) .A,X(4).A.F(2),X(2),2  A 

) : 

ENC  ; 

end; 

/t 

PRINT    ALL    INFORMATION   CONTAINED    IN    THE  STRUCTURE 
PERSCNAL    ABOUT   LEARNING   ACTIVITIES    THE    STUDENT  HAS 
CCVPLETEC. 


PUT  F ILEISYSPR INT)  ED  I T  (  •  L . A .  ' ) ( SK  IP ( 2  )  .COL ( 32 ) , A) J 
/* 

INITIALIZE   ACTIVITY*   AND  AKEA»i 
AC Ti VI  T Y*  .AREA*    -  IJ 

DO  .NUM  -  I    ru  98; 

/a  ' 

IF    EACCLTY    15    ZERO.    C,C    NOT    PRINT    THIS  ACTIVITY. 
IF   LEARNING„A{NUM) .EACULTY    =   C   THEN  GO   TO  CHECK; 
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/* 

SUr    THE  CO^XKECT  GROUP    ANO   SUIJSTITUTE  VALUES. 

*/ 

IF    i.;iAr<r>l{rvlG_A(r!UM)  .Gr?f,UP   -    "J'B  THEN    G„STATUS  -  i; 
f"l.  3i-    G    STATUS    -  ,i; 
I. KARnTng.  A  (NUM  ).  SUU3T  ITUTE    -    M»H    THEN   5_5rATUS    "  I 

ELSE    S    STATUS    -  2: 
PUT    F  I  LE  (  SYSPR  INT  )    riDir<'ARF.A    =    •  .  AREA_D  I  CT  {  A^f-"  A  »  >  , 
■NO         '  ,  ACT  I  V  I  r  Y  y  ,SUIJSTR(  L.EAR^4  !NG_.\(  NUM  )  .DATE  ,  1  .  ?) 
II     •/•     I!     SUJ3TR!  LE  ARM  NG_A(  NUM)  .DATt  ,  J,2)     ||     •/•  || 

SUHSTt;  (  Lt^  APIS  ING    A  (  NUM  )  .  CAT  L" ,  '3,  Z  >  ,  FACULTY  (LE  AWN  ING  A 
(  NUM)  .f- ACULTYJ  .  a'C  r  t  VI  TY_TI  TEE_D  I  CTl  AC  T  I  V  ITY    !"  I  TLE" 

( t-ioiA) )  . GP I  G_s  r  A  rus )  ,  sub ;  s_s r  atusj  )  ( cgl 

2    A,X(3J,A,F(2),X(JJ,A.Xt2),A,CJL{5l>,;j  {A,X(5n» 
C0',_(  3  1  }  ,A>  ; 

PUT    F  ILE  (  SYSPf?  INT  )    ED  I  T  (  •  COMME  NT  3   -  •  )  (  COL  (  5  I  )  ,  A )  ; 
Oa   N    --    I    TO    6    -aH  I  LE  (  C'.IKMENT  (  N^M  ,N )    -.  0); 

PUT    F  ILE  (  SYSPK  I  ,MT  j    EOIT(CCMMENT    D  I  C  T  (  CQMM  ENT  (  NU  M  ,  N  )  ) 
) (COL (66 ) , AJ ; 

ENO  ; 

/* 

INCREMENT   ACTIVITY*   OY  ONE. 

*/ 

check:  ACTIVITY/*    =    ACTIVJTYJ    +  i', 

/* 

IF    THE    VALUE    CF   THE   jNEW    INDEX    INTO   LEARNING_A    IS  EQUAL 
TO    THE    VALUE    OF    THE    NEXT    ELEMENT    IN   ENTRY,  INCREMENT 
ThE    AREA*    BY    CNE    AND    RESET    ACTIVITY*    TO  ONE. 

*/ 

IF    (ACTIVITY/,-    >   ENTRY  (  AREA*>  J    -=   ENTRY(AREA»   +    I)    +  I 

THEN  do; 

A'JEA.*         AREA?/    +  I; 
ACriVIT/,*   =  i; 

end; 
end; 

/  * 

Pt^INf  ALL  INFOPMATlOfi  CONTAINED  IN  THE  STRUCTURE 
PERSCNAL  AnoUT  FIELD  EXPERIENCES  THE  STUDENT  HAS 
CGIv-pLETEC. 

!■/ 

PUT    FILEISYSPHINT)    £ 0  I T (  « F  I  EL O  •  )  ( S K I P ( 2 ) , C OL ( 32 )  , A )  ; 
DO    NLM    -    1     TO   7      H  I  L E  (  E  i  EL 0  . SCHOOL  (  NUM  )    -.-  0}; 

PUT    FILE!  SrSPRINT)    EOIT('YR    =    •  . F I  ELD ( NUM )  . Y R ,  • OTR  =  • 
.F  lELC  t  NUM  )  .OTP;  ,  SCHCOL_0  I  CT  (  F  I  ELO<  NUM)  .SCHOOL)  > 
F  IELC( NUM)  . TEACHER GRADE   =    •  . G < ADE_0 I C T < F i FL 0  ( N  UM  )  . 
Gr^  ADE  J  ,  CLASSFQCM_DI  CT  C  FI  ELO(  NUM»  ,CL  AS5RO0M  )  t 
LEVEL_.DICT  (FIELDINUM)  .LEVEL)  )(C0L('\6)  ,A.F(i;)  ,X(  J), 
A ,F^  1  J  , X( J )  , A, X(  1  )  , A ,COL( 5  I )  t A , A  , X ( 5 J  . A  ,  X ( 3 ) , A )  ; 
PUT    FILE(SYSPRINT)    EDIT!  'ROLE    = •  ) ( COL ( 5  I  )  , A )  ; 
DO   N    =    1    TO   6    WH ILE  (F_PCLE  (NUM  .N  )    -,~  0); 

PUT   FILE!  SYSPR  I  NT)    EOIT{F   ROLE    OICT(F    ROLE  (  NUA» .  N  )  )  ) 
(CCL«66>.A): 

end; 

PUT    FILE(  SYSPRINT)    ED  I  T (  • STR ENGTH3    =    • )  ( COL ( 5 t  ) , A ) : 
00    N   =    I    TO.  6    WHIL.EC  STRENGTHS    I'NUM.N)  0); 

PUT    F ILEI SYEPR  JNT )    ED  I  T { STRENG THS   D I CT ( STR EN GTHS 
( NUM ,N)  )  ) { C0L(&6)  .  A)  ; 

END  ; 

PUT   f- ILE  (  SYSPR  INT  )    E»IT(«NEEOS      •  )  (  COL  (  3  IJ  ,  A  )  ; 
00    N    -    I    TO    6    WniLE(lVEAKNESSE5(NUM  ,N)       -  0); 

PUT    FILE(SYSPRINT)    ED  !  T < W E AK NE SS ES    D I CT { WEAKNESSES 
(NUM,N)  )  )<CC1L(66)  ,AJ  ; 

END  ; 

end; 

/* 

PRINT    ALL    INFORMATICN   CONTAINED    IN    THE  STRUCTURE 
PERSCNAL   ADOUT    THE    STUDENT'S    COMKJNITY  EXPERIENCE. 

PUT    FILEISYSPRINT)    E 0  IT (  '  CQMMU N I T Y •  )  { SK I P ( 2 ) , COI  <J2),AJ: 
IF    CCMMJNI  TY.  AGf;NCY    =    •     •    THEN  RETURN; 

PUT    F  !Lf--(  SYSPR  INT)    EOITC'YR    =         COMMON  I  T  Y  .  YH  ,»  QTR   =  •. 
CCf'MUNI  TY  .  OTK  .  COMMUM  TY  .AGENCY  ,'  AoJ-NCY    Rf-P  = 
AiofcNCy_REP,LLVLL_DICT(COMMUNITY.LLVi;L)  )  (COL(A6)  , 

o  J-^J^  •  '^•'"'^  '  *  '^^        "^'^'-S)  .A  .X  (  J)  .A  ,COL(  46)  ,  A)  ; 

PUT    !  lLE(!.Y3PKlNr)    L  IJ I  T  <  •  ROLE    --  ■  )  (  CO  L(  5  I  >  ,  A  )  ; 

no   N    .-    I    TO         WHILEIC   KOLh(iN)  0): 

PUT    FILE (SYSPRINT)    EDITCC    ROLE    DICf(C  ROLC(N))> 
(C0Hfc6),A); 
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end: 

PUT    HLE<SYr.PR  IND    F  0  I  T  (  '  CCMMtrNt  3   =  •  >  (  CDL  (  S  I  )  .  A  >  : 

00  N  =  i   ro      wi< ; LL ( c_ccMyt:Ni" { N)        o)  : 

PUT  f- ILT:  (  ;;Y5PK  INf  )  tOITCC  CUMME^4T  OrCT(C  COMM  F.NT  (  N  )  )  » 
( COL( 06»  ,AI  ; 

E.NC; 
1- IN  ism:  end; 
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fcASic:     p.u:cfi)i>;iE  ci'T  i  cns  ( .v  •*>  i  u  >  ; 
/■* 

prc'gpam:  basic 
00  rpo r 

or-sChiiPTioN :      li3Th-;g  cf  pc.rv.onai.  iNFUr<MAriCN  on 
sruDt  NT"J  WHICH  IS  ;  15  o'l  Oi'£C''-t.<J  ano 
ca;<>CT£i;  my  Tut  srjDt.NTs  at  the 

Ut-vj  I  UF    r.ACM  OUArtfEPl. 

ALGr:;ilHI«:    '  RcAU    THt£    initial    data.      PSGCeSS    THE  MAIM 

FlLt;    IIY    PkINTING    Fr.htiGNAL     I  Nf- Oi?  M  A  T  1 0  N 
UM    ST*JOCnTS    in    3:-M1NAPo    .<tQU;f.Si'.  INO 
INt-Or^MAT  ICN    on;:    3EMINAi<    AT    A  TIM£, 
i^CwIND    THk    TAM^;    ANU   CGNTINUd  P^JCESSING 
TH;i    r;f:>lA  INING    (iE'JUuSTS  TiZAM    IN  A 

SIMILAR  MANNE;^. 

*.*  *  ♦  *  J.  --Its  t  .**  it  t  Si  w;*  >  ^  *>t*^** 

NOTF  IrtZ    FCLLGwING    LIECLA'^E   5  T  A  T  E    5N  T  (  3  ) 

iNCi-uuiir>  IN  THF.  pkog'^am  nam::o  al.-  must  ae 
mOO'^l.  ru  rilis  PRijGr<AM  pRiCn  ro  hxECjTio.s: 

1.  THE    STATEMENT    LABf-LcD   CMc  WHICH 
Cr.NTAINb    THf.    STi-cUC  TUF.-£   P'i.'^S  JNAL. 

2.  THE    STATEMENT    LAEELEU   T  »V  0  WHICH 
ClJMTAINS    TtiE    L)  10  T  lONArl  I  tS. 

.i  *  *  »  It'vt  «  «  *  +  <     ^  *  *     V  *  *  *  :*  V         -V  .It  *  *  Ht .«  <  4^  3t  >  *     *  )|c     *  :ti     *  »  :Jr  ^ 

*/ 

/« 

r<EAi;    ThE    RANGE    UF    TFE    TEAM   NUMBERS.      THIS    QANGE  13 
U5EU    ro    DYNAMICALLY    CUNTHOL    THE    STOh?AGE    ALLOCAiEO  10 
FACULTY  NO. 

*/ 

g--:t  file(3Y3inj  ED  I  t<  ■ii  n  ,max)  (colc  I )  t?-  ( F  ( 1)  .X  ( '4 ) ) ) ; 

B  i  G  I  N  ; 
l;  E  C  L  A  £ 
/« 

eiT    rtFEN    iLT    TO    A    •  1  f  (3    INDICATES    THAT  PSINTtN'o 

FOi".    THIS    5C-V.  INA.-.    HAS    Ef.-EN    CCJMPLETED.  */ 

i:  I  r  IJ  IT  (  1  )     i  M  r  I  A  L  (  •  Ci  •  13  J  . 

/  * 

OICTIOKAQY    LF    FACULTY    MEKi3Er:»3   NAVIES   ASSOCIATED    .V I TH 
THE    COUEi    .^ECOI-n^ED    IN    P^RC-Or^AL.  */ 
FACLLTYI^jJ    CliA-'  mCTLP.  (  1 )     I  N  I  V  X  AL  (  •  HE-^N  A^J  0  •  .  'CUPRAN  «  , 
•!JE  TL'<E  '  .  •  FEY  •  ,  •  Gi'JLO/'AN  '  ,  •  HI  Ll  I  A  <0'  .  '  JE^TEf?  •  t 
•K,  IN^E.'^  •  ,  •  LE  W  I  S  '  .  '  I.  I  TCHE.^'  .  ■  MA.JT  1  NELLCi'  .  •  NEv/CCMU*  , 
<  OL5CN  '  ,  '  PEN  LAN  12  •  ,  •  hlOlvE  '  ,  '  5EFAPH  INE'  i  '  l-iHE.%  •  .  'SM  r  TH'  . 
•  T  1  SEN  '  .  •     ILMJT  •  .  '  Kf-.AL-L  '  ,  '  C.-?  EEDON'  .  '  LEV  INE*  . 
• HtOGES • . • Gr IMM» ) , 

/* 

FACULTY    NU..U3Ef;S   OF    THE    SEMINA.'J    LEAOEfiS   liY    TEAM.  */ 

F  ACULTy_NQ  { IN  :  MAX  ,4  )    FIXED  blNARY, 

CLi^_C.i^TE    CHAh!ACTi-.,i(8)  , 

VA-.K(2)    CHA^-  ACTE'^       )  t 

CLO   FILE    PEi.Ul'.O  SEUUENTIAL. 

7UKN_DA  lE    CHAPACTE:-?  (  I  ^3  )  » 
S=iMINAr-V    FIXED  -11NA;<Y, 
TEA>»»    FIXED  oINAkY; 

INITIAL  I /C£    FACULTY  NO. 

*/ 

EACH.  TY_M)    -  O; 
./  * 

CN    I-.  NCCUNTEk  I  KG    AN    ENiV    OF   FILE   ON  OLD.    REWIND    THE  TAPE 
AND    SE  T    HIT    TO    A  MM). 

*/ 

CN    ENDFILEtOLD)    HE  GIN; 
C1.C-3E    F  I  LE  (  OLD)  ; 
r.PEN    FILE  (OLD); 

Li  I  r  -  '  I  •  d : 

END  : 

LU>EN   FILE  (  SYSPKINT)    L  I N  liS  U  E  {  I  J  0  )  ;  . 
/■*. 

p>:ao  tme  cu<i-i:n7  dat<;.     then  keao  the  oatc:  THE  co»?RecTeo 

KiJ:<M    should    he    F.f.  r'.J;vNhD  . 
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Gt-T  i  iur: ( 3Y3  IN )      I  r (xf-:  TUhiN^oAT;.  <  t  ecu. (  i ) ,  a(  i  'iJ ) ; 
/* 

pr.AD  rnrr  muiihi:'^  i'-  tlams  to  -it  pr-.oci-. ssEi) .     TufN  i-or:  uacm 

Tt-At    ASAC.    THC    TI.AM    liUMbt.^t    Ttl^:    NUMULI-i    Of-    3f-;MINA!-S    TO  UE 
ri^OCt3  3r-:Ci    ArJD    TH;:    icM^^A^(    NUMi3L:i<    ANU   FACULTY  NUM.JCR 
OK    LACH    SiIMlNAR    T'J    L'L    PR  OC  E.S 'jCO . 

*/ 

GKT    KILLItSYSIN)    i:o  I  T  (  NG_  C  A  P  DS  )  {  COL  (  1  )  i  F  (  rl  )  )  ; 
DU    I    --■    1    TO  NU_CA.«U^; 

Gf£T    F  ILL  {  SY  il  N)    L£DI  T(  rCAN// .  H  K  I  r  ,  I  SCN"  I  NAh*  .FACULTY  .\'0( 
A  M-t  ,  SUM  INAr. '/ J    DO    J    =    I    TO   L  1  M  I  T  )  )  C  COL  {  1  )  .  (F<1), 
X  ( 't  >  )  , (  F  (  1  )  ,  X  ( 1  )  ,  F  {  2  )  ,  X  (  J  )  ) ) ; 

F.NC ; 

/ « 

PkIN:    Pfif^SONAL'  INFJRf/ATICN    Al^CUT    GTJDtNTS'  IN  EACH 
aCMINAh*    EY    rtAM.      PkII'JT    C  NG    PER  PAGE. 

CO    TEAM*    =    MIN    TQ    MAX  J 

IF  (  F  ACuuTy_rjc  ( rt  AiVAf ,  1 )  ^  o  &  FAcuLrY_fMO(  team*  ,2)  ---  0 

o-    r-ACi.LTY_NO{  T'f  AMi^  ,         -    0   (,    FACULTY   NO  (  TEAM;*  .-i  )    -  0) 

THEN  GO  TO  t_£:mo; 


P.^OCfSS    ONE    SEMINA,^   AT    A  TIME. 

*/ 

CO    SEMINAR"   -    I    TU  4; 

IF    FACULTY_IJQ(  TrIAM//  ,  SEMI  NARK)    =    0    THEN    GO    TO    S  ENO; 
/* 


PRInT    the    HhADEK    INFORMATION    FOR    EACH  SEMINAH. 

*/ 

y-'^JT    F  I  LE  (  SYSFr,  I  NT  )    E  D  I  T  (  CUR_C  ATE  )  {  PAGE  ,  A  )  ; 

PUT    F  ILE(  SYSPFi  INT  )    c  D  I  T  (  '  ti  A  S  I  C  •  .  •  OU  TPU  T  DESCRIPTION* 
.':    LISTING    OF    PERSONAL    INFORMATION    ON    STUDENTS  • 
♦•whI.H    IS    TU    CHECKEr    AND    CORRECTED    BY  TFE 
•TjTUOENTS    AT    TFE    bHG  INNING   OF    EAC.i   QUART ER  .  •  )  (  3K I P 
.A, SKI  P. 4  A); 

/* 

P.?:  NT    THE   RETURN  DATE. 

*/ 

PUr    Flue  {  SYSP?  INT  )    con  ('RETURN   DATE:     •  ,  RETURN_OATE) 
<  SKIP  ,2    A)  ; 

/•■» 

PRINT    THE    SEMINA;^    :,EAaER»S  NAME. 

-*/ 

PUT    F  ILE  (  SYSP'";  I  NT  >    E  0  I T  (  '  SE  M  IN  AR   LEADER:  '.FACULTY 
{ FACULT Y_NQ{  TE AM^  , SEM I N AR^ ) J  )  (  SK IP , 2   A )  ; 

/  « 

SEAC    A    RECCSC   FROM    TFE    MAIN  FILE. 

*/ 

READ   FILE(CLD)     INT 0 ( PERSONAL ) ; 


IF    THE    cND   UF    THE   MAIN   FILE    HAS    BEEN  ENCOUNTEREOi 

1  ij-:m  c  ATEsj -.cr  lj  i  t  set  to  a  'i'b,  reset  hit  TO  A  'o»a 

AND    TRANSFER    TO    3   END    TC    UCGIN   PROCESSING   A  NEW 
SEM  INAR  . 

*. 

IF    BIT    -    • I • 0    THEN    DC;  "  ' 

0 1 T  -  •  0  •  a : 

GO    TO  3_tN0; 
ENO  ; 

/* 


CHECK    IF    THIS   STUDENT    IS    IN    THE    TEAM   AND  SEMINAR 
CURRENTLY    HtING  PRINTED. 

*/ 

IF    TEAM    =    lEAM//         SEMINAR         SEMINAR*    TF.EN  OO; 
/" 

PRINT    THE    DIR5CTICNS    TO   THC  STUDENT. 

*/ 

PUT    FILE  (SYSPR  INT  )    E  C  1  T  t  M.)  IR  EC  T  I  ON  S  :    PLEASE  . 
'CORRECT    ANY    INFORMATICS    UELOW    WHICH    IS  », 

•  INCOiaRcCT  .'.  "RETURN    TI1 1  S   FORM    TU    YOUR  SEMINAR', 

•  Li-AUER    N.J    LATLR    THtN    •, RETURN    DA  IE  ,'.•)(  PAGF , 
J    A  ,COLl  5)  .-V    Ai  ; 

/* 
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PiilNT    TM^   S  rijOt-.Nr  •  3    SOCIAL   ScCU'^<ITY   KUMHE« . 

*/ 

PLT   F  ILii  (  SY',;!-'!'"  INT)    E  O  i  T  {  •    CC  I  A  L    StCURITY  NUMIJCX*. 

•(U  ;   '  ,soc  3c;c  no)  (  5KiF(<t)  i2  a  ,col(^o)  tA) ; 

/* 

PRINT    Tne    STUUtiNT'S   NAME*  * 

PUI    F  ILt  (  S/jPl-;  I  NT  )    tOl  T  (  •  NAMCC  2)  :     •.•LAST(-3)     :  '. 

LAS r ,  •  p  iPb  r  ( )   :  •  .kusSt.  •  MiooLt  (a)   :  •, middle) 
^^i<lp^^)  •  a ,  j  (ccl c  i o ) , a ,  r.oi.(  4o ) ,  a ) ) : 

/* 

PRINT    THE    liTUDHNT'S   PHRMANENT  AOOWfcSS. 

:«/ 

PUT    F  ILE  (  S  fSPi;  I  NT  )    il  D  1  T  (  •  P  EP  MA  NEN  T    A0DPt-:SS(6)     :  •» 
»  STRhf- 7  (  7  )     :     '.KLRM    A  L       .  S  IS  rll  T  ,  •  C  I  T  Y  (  8  )  : 
FE.-C.'1_ADC.-i.  C  I  ry  ,  '  STATc  (  9  )     :     •  iPtt  M_AOLr(.OTAri£» 
•£IP    GUI. £(10)    :     •  .P;;r!N<_A(jUR.  ZIP)  t  SK1P(2)  ,A. 
(  COL.(  1  0)  ,  A.COL  ( 'to  )  .  A)  )  ; 

/  « 

FfiINT    THE    STUDENT'S   PE;?MANENT  PHONF:  NUMJER. 

*/ 

PUT    F iLfc < SY3PR  INT  J    ED  I  T (  • PEP MANENT   PHONE    NUMBER •  t 

'(11)   :   '  ,P£::<M_P:ir.NE)  (S<  ip(c; )  ,^  A  ,cgl(  40 )  t  a  )  ; 

/« 

PkINT    THE    STUDENT'S    LOCAL.  ADDkESS. 

*/ 

PJf    F  ILE  ( 'JY.iPP;  INT  )    EDITC.LOCAL    ADO.-?E  SS  {  I  2  )  : 

•STRtETtlJ)     :     ' ,uUCAL_ACDk. STREET , 'CITYC 14)  : 
LCC.«L_ACDP,  .  C  ITY  ,  •  STATE  (  I  b)    :     •  ,  uCC  Al_A  DU    .  S  T  ATE  t 
'HP   Cl.;UE{16)    :     '  ,LaCAL_ADDR       IP  )  (  SK.  I?  12  >  ,  A  , 
4    (  COL  (  i  0)  ,  A  ,':0L(  40  )  ,  A)  )  : 

PP.  iNT    THE    STUDENT'S    LOCAL    PHCNE  NUMGEH. 

*/ 

POT    F  ILE  (  SYSPr;  INf  )    tCirC  'LOCAL   PHONE  NUMdER{I7>', 
•     :     "tLOCAL    PHCN:^  i  {  3K  I  P  (  2)  A  ,  COL  (  4  0  )  .  A  >  ; 

/  * 

■^^INT    THE    OIF^^t-.^;:E^r    MARITAL    STATUS    TYPES.  PLACE 
Ar'j    'A'    NEXT    TO    THE    STUDENT'S    CUf-f^ENT  MA;-HTAL 
S  T  A  f  L  S . 

*/ 

PUT    F  ILE  (SYjPP  INT  )    ED  !  T  (  •  M  A.V  I  T  AL    STATUS(23)  ', 
•PuKASE    C.itL'K    YCU.^    CURRENT    MARITAL  STATUS..') 
!.  S  K  I  P  (  c:  )  ,  A  .  C  GL  (  4  0  )  .  A  )  ; 
DC    1    -    1     TG  4; 

PLT   F  I  LE  (  SY  3P.-;i.NT)    E D  I  T  (  MA R  I  T  AL_S T  AT _D  I  C T  (  I  )  ) 

(  SK  I  P  .  COL  i  A'J.  )  ,  A  )  ; 
IF    XA>i  n  Au_  iTAT    -    I    TliEN   PUT    F  I LE  (  S  Y  SPR  I N  T  )  EDIT 

(  • X'  )  (C  JL (  /6)  ,A)  ; 
PUT   F iLC(SYSPftlNT)    E D I T C  •  (  '  ,  I  ,  '  )  '  )  ( CUL ( 7 8 )  , A  , 

F(2)  ,A  )  ; 
END  : 

/* 

PRINT   HOVi   MANY    CEP£^.OE^T   CHILDREN   THIS   STUDENT  HAS 

*/ 

PLT    F  I  .r  (  .SYSPHI  NT  )    E  D  I  T  (  »  NUMUE  f!   OF    DEPENDENT  '. 
' CH ILDPEN( 24  )    ;     '  , DEP_CH  IL DP EN )  ( SK  IP ( 2 )  ,  2  A, 
CCL  (  ''O  ,F  (  2  )  )  ; 
n-    DEP_CHI  LO^^  EN    -4    0    THEN    GO    TO  NEXT; 
/  f 

PRINT    THE    AGE    RANGE    OF    THE    STUDENT'S  DEPENDENT 
CH ILOKEN . 

*/ 

PUT   F  ILL  (  SYSPi^  INT  )    ED1T(»A0E    fvAK<.h    OF    DEPENDENT  't 
'  CH  iLDl'a  N  ( )    :     '  ,  •  Y|-;UNGEST    CHILD    :  ', 
AGE_KAN(,E(  1  ), 'OLDEST    CHILD    :     '  .  AGE_P  ANGE  (  2  )  ) 
(SK1P(^),2    A. 2    (CCL(  10 )  . A, COLC 40)  , A) ) : 

/♦ 

PiUNT    THE    QIFFEPENT   TYPES    Q-    l«  C^K  EXPEPIENCCS. 
Pi_ACc    AN    'X'    NhAT  'to   EACH   OF    THE  STUDENT'S 
i->^Ev:OLS    AOriir.    -;AphP  ILNCE3 . 

^/ 

PUT   F  ILE  <  SYSPP  iNf  )    GDir('>vOi?K   EXPEK  lENCE  (  26)    :  ', 
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CHfCK  i 


PRtNT  I 


•PLI-: As*^-.  CKCCK  Tf-i;;  TVPtis  Of-  aCak  l;•:^PL:|.•  iGNCts 

hAVf:    MALI  .  •  )  (  SKlH(c:)  rA  ,CaL(AO)  ,.i  A); 
DO    I    --    I    TIJ  ■» ', 


YOU' 


/* 


VAr'K    =    »    •  ; 

CC    INOE.X    ^    1    TO  &; 

IK    •*0!iK_!iXP(  I  NUtiX)    =    I  THCN 

0(3 ;  V 

Mfi.PK  (  I  )    ^    •  x»  ; 

C.U  TO  CHUCK  I ; 
ESQ ; 

dNO  ; 

CO    INDKX    -    I    TO  o; 

IF    'AGKi<;_I>i,p(  I  NOcX )    -1+9  THEN 

DO ; 

MAPK (.•^)  =  » x« ; 

GU    TO   P^INT  i; 
end; 

f^CT   f-"  1  L!£  (  SYSP  51  NT)    CD  I  T  (  WORK_EXP   O  I  C  T  (  1)  ,  M  AS  K  {  I  ) 
.  •  1  •  1  I  .  ■  )  «  ,  i.Or-.K    tXP_OICT(I    +    9  )  iMAP  .<  (  2  )  ,  •  (  •  , 
I    +    '?.')')(  Sl^  :P  ,COu( ),  A,  COL  (  7t))  ,  A,C  JL{  7il)  ,A  I 
I;  (  ^)  f  A  :C0L<9(J  )  .  A  ,CCL<  I  ^0)  ,  A.CUi-  (1<;J),A,F<2),A) 


P I  K  T   i! : 


PkINT    THE    DIFFEf^ENf    TYPES    Of-    TRAVEL    E  XPH."?  I  ENCE  S . 
PwACE    AN    'X'     NEXT    TU    EACH    CF    THE  STUDENT'S 
Pr^EViauS    Tf<AVEL  £Api£f<IE^4CES. 

?LT    F  ILE  (  SYSPP  INT  )    EDITCTPAVEL    EXP  f:  P  I  ENC  E  (  «;  3  )  . 
.'PLEASE    CHECK    THE    TYPE3   CF    TfiAVEi.    EXPE.^IfNCES  • 
.•YQ'J   H.AVE    HAO>»  J  (SKIP(2J  ,  A.CO^C'VO)  ,ir  A); 

I  -  1   TO  lo; 
N-ASK  =   •    •  ; 

DO    INDEX    -    I    TO  6; 

IF    T P AVE L_E XP ( INDEX)    -    J  THEN 
DC  : 

MAP.  <  (  1  J    -    •  X  •  ; 

GC  TU  ciiEC<_:?; 
end; 

.-:no: 

CC    INDEX   ■=    i   TO  6: 

IK    T.-^AV^L_EXP  (  INDEX  )         I    +    1  0  THEN 

no ; 

KAMK  {?.)    =:    «  X  •  ; 

GO  TO  p:?int_;>; 

END  ; 

END  ; 

put    (-iLE'.bYSPAlNTJ    ED  I  T  (  TR  AV  EL_EXP  UIOTll), 
MArK  (  1  )  ,  ■  t  '  ,1  ,  ■  )  «  ,  mAVEL_EXP_L.'ICf  (  I    f  10), 
y.Ar,K  (;;)..(  I  ,  1     ).    I  0  ,  •  )  •  J  (  SM  P  ,  CCu  (  i  5)  ,  A  ,  C  OL  (  75  ) 
. A , COL ( 7  8  )  , A, F ( 2  )  , A. COL(  20  )  , A , CCL {  120  )  .A, 
COUl  l^J)  ,A.F(^)  ,A)  ; 

End; 


P.nNT    INFOPMATION    AOCUT    THE    STUOEI-JT'S  CUPf^iFNT 
EMK-LOYMENT. 

PUT    FILE  (SY:iPRINT  )    ED  I  T  (  •  C  u;^  Rb  N  T    EMPLOYMFN  T  (  JO  ) 
•  .  'EMPLOYclM  Jl  )     :  '.tMPLCYb^, 
•hOGriS    AO.<:^ED    PErt    WEEKCJ^)     :     '.HRS.PE^J  WK) 
(S<1P{2)  ,^    A,CaL(  IQ  )  .  A.  CUL  (/rO)  ,  A,  COL  (  10)  .A* 
CCL(  '*0  )  .F(  -?  )  )  : 

/  f 

PHINT    THE    STUDENT'S    MYERS    H-^IOOS  TYPE. 

*/ 

Pur    F  TLE  (SY--,P)^.  I.--!T  )    ED  1  T  (  «.  M  YE  Rfj    I3RIGGS    TYPE{39)     ;  » 
.MYEK3_tjRlC.GS_!JIC.T{MYE«3_illUGGi)  )  (3.<IP(  ;i  )  ,  A  • 
C  0  L  (  4  0  >  •  A  )  ; 

PAINi-    Tut    STUDENT'S    AREA    OF  SPECIALISATION, 

PUT   (-  ILl-  (5Y;iP.\>  I.NI  )    E  B  U  (  <  SPI"  C  1  AU I A  T  I  ON  (  4 )    :•    •  , 
bPEC  !  A  1  I  /.  \  T  I  0N_  C  I  C  r  (  CPEC  I  A..  1  /.A  T  lUN  ))iSKlP(^),A, 
COL  1  40)  tA)  ; 

/* 

pHih  f  The  STuui-.MT  •  s  team  NUMOEH. 

PUT  1"  ILL  (  s  y::p;-i  iMT  )  eo  i  t  ( •  i  i:A/.i  (  *b  j  ;   '.team)  *^ 

<  3n  I.'  {  /-  >  .  A  ,  ecu  '.O  )  ,  I-  ( >  ; 


85 


/  * 

Pf'INT    ZHE   NAMK   OF    THC    STUrjt£NT«5   St£MIMAR  LEAOGR. 

*/ 

HUT    ;■•  tLL  <  ii-'SPK  INT  )    K  C  I  T  (  •  S  tM  I N  AP  { '» tj  >    :  '.HACULTYi 
f-ACULTY    riOi  li-.AM*  ,  i)C  M  I  N  A  v  *^ )  )  )  (  T.  M  H  (.?.}  .A.COLCVO)  i 

/♦ 

PfiINT    Tur.    STUOhNT'S   EXPECTED   DATE    CF  GKAOUATtCN. 

*/ 

PIT   F  ILL  (  I  NT  )    iZ  0  I  T  (  •    XPh"C  Tf£  O   DATE   OF  •. 

•  GP.AOUAT  ION  ( '47)     :     •.•YKARCva)     :  '. 

[-xp    Of;AD_  OATt  ,        ,  •  QlJA-'T  r.,<{ )    :     •.UUAP.Tti'^  DICT 
(  EaP_GH  AJ_UATii  .  U'.'  R  )  )  (  SK.  i  P  I  ^  )  ,^    A  .  COHl  0  )  .  A  , 
CCL  I'J  0  )  f  F  (  ^  i  .  CUi.  (  1  0  )  ,  A  ,  CUL  (  VO  )  .  A)  ; 

fcNO ; 
/* 

T,^AN'">F£:,:;    TO   LUCP    Tu   P.^OCiiSS   A   NEW  RECORO. 

♦/ 

GO    TO  LOCP; 

s  end;  eno; 
T  end:  eno; 
end; 

Bii-ilSh:  eno; 
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/  + 


OPT lONSC  MA  I MJ 


nu  iLO 


OUTPUT 

□tiscjj I PT  ion: 


ALGQRI THM: 


A  List  OY  SOCIAL  SrCJRITY  fJUMHUr?  OF  ALL 
DATA  litJTtRaU  O'JftING  T  Hi-:  ADO  I  T  ION  Of-  NgW 
PEICORDSI 


PBAO  INITIAL    DATA.      FOR    EACH  NEW 

SruDFiNT    RuCOI-?D,     INITIALIZE    CERTAIN    I  TSMS 

IN  Tt-c  s Trt'jc rur<E  pijrsonal.     rlao  othi-h 

INITIAL    VALUt-;3,    PRINT    THESE    VALUES  ANO 
STOr^E    THE   RECORD    IN    THE    NEw    MAIN  FILE. 
WHEN    THESE    ARE   NO    MORE   NEW    RECOROS  CHECK 
THE    VALUE    Cf-    TYPE.       IF    TYPE    IS    SET    TO  l» 
COPY    THE    OLD    MAIN   F£_E    ONTO    THE   NE^  MAIN 
FILE. 

NOTE  THE    FCLLCWING    DECLARE   STATEMENT (S) 

INCLUOEIJ    IN    THE    PROGRAM    NAMED    ALL    MUST  BH 
ADDEO    TO    THIS    PROGRAM   PRIOR    TO  EXECUTION: 
1.       THE    STATEMENT    LABELEC   ONE  WHICH 
CCNTAINS    THE    STRUCTURE  PERSONAL. 

+  + ****** 


*/ 


CN  EKCCUNT;:RI  NG  AN  END  CF  FILE  ON  SYSIN,  TRANSFER  TO 
THE  LABEL  CHECK  TO  OriTfRMINE  IF  RECORDS  FROM  THE  OLD 
MAIN    FILE    SHOULD    BE   COPIED   ONTO    THE    NEW    MAIN  FILE. 

CN    ENCFILEI -SYS  IN)    GO    TO  ChCiCK; 
DETLARE 
/* 

FLAG    .Vhi=N    SET    tq    a    •     •     INDICATES    THE    END   OF  A 

STLDENT  RECORD. 

FLAG    CHAR  ACT  ER II), 

CUR..CATE    CHAr-.'ACTERf  01  . 

^E  ;v    FILE    Rt-COfiD  SEQUENTIAL. 

FILE    RECORD  SEOUENIIAL. 
TYPE    Fl  ;(-iD  binary; 
SUE_.AReA  =  o; 

c;TK_oije  5T I CNNA  i  RE  =  o; 

OPEN   F  ILK -^YSPR  lur  3 


*/ 


L  INt.S  I  ZE{  130  ) 


next: 


ON  ENCOUNTERING  THE 
HE  ACER  INFORMATION. 


END   OF   A   PAGE   CF    PRINT.    PRINT  THE 


GN    E.NDPAGE  (3YSPR  INT  )  BEGIN; 

PUT    FiLE<  SiSPhINT)    i-.O  I  T  (  CUm_DA  TE  )  <  P  AGE  ,  A  )  : 
PUT    F  U.E( SYSPPINT)    E D I T (  » OU I LO • , 

•ui;rruT  description:  a  listing  by  social  security', 

'    NUM:jER   of    all    DATA   ENTERED    DURING   THE    ADDITION  OF' 
NEiv    RECOiVDS  •  .)  (  SK  IP  ,  A  ,  SK  IP  ,:i  A); 
PUT   F ILE ! SYSPR INT  )    EOIT(  'SOCIAL   SECURITY   NO',  'ITEM', 

•PRESENT   CCNTEHTS')  (SKIP(6)  ,A,C0L{2'iJ  ,  A  .  COL  (  .}5  )  ,  A  )  ; 
PUT    F  ILE  {  SY-^PR  IN  V  )    ED  I  T  {  •  »,•  », 

•  ')  (SKI PIC) .a,col(^s)7a,col( iSr.A) : 

END ; 

/  K 

ON    ENCOUNTERING   A   CCNVERSICN   ERROR   PRINT    AN  GRSOfJ 
.".ESSAuE.      CONTINUE    TO   R.EAO   THE    REMAINING   CARDS    IN  THIS 
RECORD.      DO   NOT    INCLUDE    THIS    RECORD    IN    THE    MAIN  FIL*-'. 
CN    ENCOUNTERING   A  TRANSFER    TO    THE    LAOEL  LOOP  TO 

GEGIN    PROCESSING   A    NEW  RECORD. 


ON  ccNvtnsiON  u^gin; 

PUT   FILEISYSPRINr  J    EOIT('*«    CONVERSION    *  *  •  )  {  SX.  I P  ,  COL 

I  ?  6) 1  A ) ; 

GET    FILE(SYSIN)    F O t T ( FL A G ?  ( S K I P , A (  I  )  )  ; 
IF    FLAG    -    ■■<■'    THEN   GO    TO   LOOf?  J 

GO  TO  next;  .  > 

end; 

/* 


*/ 


CN   ENCOUNTERING   THE   END   OF   THE   OLD   M A  UJ   FILE   TRANSFER  TO 
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loop: 


*/ 

ON  ENOFIUC(OLO)    GO    TO  f-"IHISH; 
/* 

rtSST  REAC   TH?.   VALUH   Qi^    TYPE   ^U0   THEN   READ   THE  CURRENT 
OATE  . 

*/ 

GET    l-lLC(GySIN)    EOIT(TrPE)  (CDL(  I  I  )  »  ;» 

GET    FILE(SYSIN)    EJlTiCOR    OAT  E  )  I  CCI.  (  I  )  ,  A  (  3  )  )  5 
/* 

PKUiT    THE    HEADER    JNFORMAriON   FOR    TH'i    FIRST   PAGE  OF 
PHINT. 

PUT   F  ILE ( SYSPR I  NT)    E U I T { CUR_ DA T E ) ( PA GE p A ) ; 
PUT    F  ILE  (SYSi'.-i  INT  )    E  0  I  T  t  •  IJU  !  LO  •  , 

•GUTPUT    OE5CR IP r I CN:     A   LISTING    BY    SOCIAL  SECUPITY't 

•    NUMBER    OF    ALL    DATA    ENTERED   DURING   THE    ADDITION   OF  », 

•NEiH    RCCOKD^'  )  (  SK  I"  ,  A  .  SK  iP  ,  J  A); 
PUT   FILE  I  SYSPR  INT  )    EDIT(»SOCIAL    SECURITY  NO«,MTEM», 

•PPESENT    CONTENTS  •  )  (  S  K  IP  C6)  ,A  .  CCL(  2ii  )  ,  A,  COL{3'.5)  ,rt)  J 
PUT    F  ILE  (  SYSPR  INT  J    EDSTC   _   _•,»_   _  •. 

•  •  >  (  SKIP  to)  lA  ,COL{  i:o  )7a7C0L{  j'j)7A)  ; 

/* 

INITIALl.'.E    CERTAIN    CATA    ITEMS    IN   THE    STRUCTURE  PERSONAL. 

*/ 

REQ_COURSE_GRAOE  ^    •  •; 
CCL    ATT    -    •     • : 

CCNPLE r iCN_CATE  =  o; 

/* 

RFADQTHER    INITIAL    VALUES   FOR    DATA    ITEMS    IN  THIS 
SruDtNT'S   RECOiiD.       AFTER    READING   EACH    INITIAL  VALUE> 
PRINT    THE   VALUE    WHICH    IS    STORED    IN  PERSONAL. 

*/ 

GET    FILE(SYSIN)    EDIT(50C   SEC    N C) { C OL ( I ) , A ( 9 ) ) ; 

PUT    FILECSYSPRINT)    ED  I T ( SOC_5EC_NO )(  SX I P ( 2  J  , X t 4)  , A )  ; 

GET    f-I  LE(  SYSIN)    £0  I  T{  ITEM  .NAME)  (  SK  I  ^  .  F  (  2  )  ,  X  {  J )  ,  A  {  I  4  )  , 

/.  (  I  )  ,  A  (  I  0  >  ,  X  (  S  )  .  A  (  I  4  )  )  ; 
PUT    FILt-CSYSPRlKT)    E  D  I  T  (  I TE  M  .  N  AME  )  (  Ci3L  <  26  )  ,  F  (  2  )  ,  X  (  7  )  , 

J  (A,X(2))); 

GcT    FILE(SYSIN>    EO I T (  I  T CM , PE R M_A DDR )  { SK I P , F ( 2 )  j X { 3  )  . 

A(20),Xl5>,A(2a),X(5)  ,a;2)  ,X{J),A'.  b)); 
Put    FILlz(SYSPRINT)    ED  I  /  (  i  TE?-' .  PE  R  V    ADOR  )  (  COL  (  26  )  ,  F  {  2  )  , 

X  {  7  )  ,  4    (  A  ,  X  (  2  )  )  )  ; 
GET    F1LE(SY5IN)    EO I T ( I T E M . PE RM    PHOME ) { 5K I P , F { 2 ) , < ( 3 ) , 

A  (  I  0  )  )  ; 

PUT    FiL£(SYSPR!N!T)    E  0  I T  <  I  T  EM  ,  PER  M   PHONE  >  (  COL  {  2  6  )  .  F  {  ?  )  , 
X(  7)  , A)  ;  -  .    1  • 

GET    I-ILE(SYSIN)    EDIT(  ITEM.LOCAL_AOOR  >{SKIP,F(2)  ,X<3)  , 

A(20),X(5),A<^0),X(5),A(2),X<:<),A(5)); 
PUT    FILE(SYSPRINT)    ED  I  T  {  I  TE  ,v  ,  L  OC  AL   A  OD  R  )  (  COL  (2  6  )  ,  F  <  2  )  , 

X  (  7  )  ,  4    (  A  ,  X  (  2  )  )  )  : 

GET    FILE(SYSIN)    ED  I T (  I  f E M , LOCAL   PHONE )< SK I P , F ( 2 )  , X ( 3 )  , 
A  (  7  )  )  ;  "* 

PU'   FILE!  SYSPR  INT)    E  D  I  T  (  I T  E  N  .  LOC  AL   PHilNE  )  {  COL  {  26  )  ,  F  (  2  )  , 
X(  7)  lA)  ; 

GET    FILE(SYSTN)    ED  I  T (  I  T t M , SE X ) ( 5K I P , F ( 2 )  ,  X ( J )  , A t  I )  ) ; 
PUT    FILE (SYSPR  I  NT  J    E C  I  T  (  I  T EM  .  S EX  )  {  CO L( 26 )  , F ( 2 )  ,  X ( 7 )  . A )  : 
GET    FI  LEI  SYSIN)    ED  I  T  (  ITEJ-  ,01  HTH_OATt  )  (  SK  I  P  ,  F  ( 2  )  .  X  (  3  )  ,  J 
(F(2)tX(3))); 

PUT    FILE(  SYSPRINT)    ED  I  T  (  I  TEM  ,  BI  R  TH   D  ATE  )  (  COL  '  25  )  ,F  (  ;>  )  , 

X( 7) , 3    (F( 2) ,X( 2) ) ) :  ~ 
^'"-^I  EOIT(  rrEM,MARITAL_STAT){SK  IP  .F  {  2  )  ,  X  (  3  )  , 

PUT    F ILE (SYSPR I  NT J    ECt T (  I  TEf , MAR  I  T AL_STAT )  (CCL (26)  ,F(2>  , 
X(7)  •*■(  i  )  )  I 

GET    FILE(SYSIN)    ED  I  T ( I  T E M  ,DEP_CH I LOR EN )  ( SK  I P  ,  F ( 2 ) , X ( 3 ) , 
K  (  I  )  )  « 

PUT    FILE ( SYSPR INT)    EOf T {  lTEM,DeP_CHI  LOREN)  (COL( 2  6)  ,F(2)  , 
'^^L  ^T?.^''"    EC)!"''!  ITEM  ,AGE_nANGG)  (5KIP,F{2)  .X{3)  ,2  ( 

PUT    F ILE (SYSPR INT)    EDIT (  I TEM  ,  AOE_H ANGE)  (CCL (26)  .F{2)  , 
>.(7),2  (F\2).X(2))); 

^''MF('m  'xIjj  n  •'"^'^^  I  TEM  .WGRX_EXP)  (  SK  I  P  ,  F  (  2  )  ,  X  (  3  )  , 
^^I ,  ^  {       !  f  r*"^'?"*  '  '^T'  J  1"  (  (  TEM  .  WORK_EXP  >  (  COL  (  26  )  ,  F  (  2  >  , 

At  /  j»6th{2)  >x(;i))); 

'■''^J:r/4';  EDI  r(  (  TEM,  fHAVeL„EXP  )  (  SK  I P  ,  F  (  2  )  .  X !  J  )  , 

PUT    F  li.E  (SYSPR  IN  D    EDI  T  (  I  Tt  N  .  TR  A  VE  L„E \P  )  (  C  CL  (  2  6)  ,F  (  2  }  , 


X ;  7 )  ,  6  ( r  1  ?  )  .  X  t  ;0  »  > ; 

GET    FtLfc(SVblN)  r!  I  ii-;V,CUi^   eMr-LOYMcNT  >  (  SK  IP  .  H(     )  , 

X  :  J '  ,,1(20)  ,  X  ( 5  i ,  f  ■  ( )  ; 

PJT    FI  Li- <  SVSI'.U  NT  »    r.\)  I  r  II  [('■  lU  C'JH    t^MPLOYMENT  )  (C0U{26»  » 

(  2 } .  X  ( 7 )  .  A ,  X  ( ;?  > .  t  ! )  J ; 

(il:  r    FILf^(iy31N)    ;£U  I  T  «  t  rCM  .M'J_COL    ATT  ,  (  CaL_ATT(  I  )    00'   I  = 
I     TO    NO    COL_ATT  )  M  SK  t  P  .f"  {  ,i  )  yX{  i)  .F  (  I  )  ,  (NO..COI,_ATT  ) 
(  C  GL  I  I  )  )"  .  A  (  J  0  )  .  X  (  -J  I  ,  ?e     (  A  (  6  )  ,  X  (  4  J  )  )  )  ' 

pur  (- 1  ll  {  SYSPU  IN  r»  c-i; r  t  (  rrfin , (  col_at t{  i  >  oo  i  =  i  to 

NO_v-:OL    AT  I  )  )  t  COL(  iiO  )  ,  F  (2)  ,  (NO_CUU   AT  T  )  <  C  OU  ( -i  5  )  .  J  (A,X 
(iJ  )  )  )  iT 

GrZr    FIu[:(SY31Nj    ifO  I  T  {  I  T  S  M  ,  CPA  )  (  S  K  I  P ,  F  (  2  )  .  X  { 3  )  ,  F  (  I  )  )  ; 

PUT    r  ILE  (SYSPK  INT  )    EDIT'.  ITtM.GPA  )<  COL(  26)  ,Fl  ?.J  ,X(  7J  ,F  (  I  J 

) : 

GET    FILE(SYSIN)    ED  IT  (  I  T  E  M  ,  NY  ERS   OR  IG  GS  )  (SK  IP  .»■  <  2  )  ,  X  (  J  )  , 
1  -  {  2  )  )  ; 

PUT   r  I  L?-.  (  SYSPR  INT)    ED  I  T  (  I  TEM  ,  M  YE  RS   DP  I  GGS  )  (  COL  (  2  6  )  .F  (  2  )  r 
X  (  7  )  ,  F  '  2  )  )  ; 

GET    F  ILii  (  3Y;3  'N)    EU  I  T(  IT  E  M  ,  CEP_ENTR  ANCE  )  {  SK  IP  ,F  (  2  )  ,  >  (  3  >  ,  2 

(  F  (  2  )  ,  X  (  .3  )  )  ,  F  (  'V  .  I  »  )  ; 
PL'T    F  (LECSYSf^'iiiNT)    EQIT(  I  TE  M  ,  CEP_E  NT  RA  NCE  )  (C0L(26)  .r(2)  • 

X<7).2    <  F(,^  )  .X(2  >  )  ,F(  5.  1  )  )  ; 
GST    FILt(£YSIN)    EDI  r (  ITEM  .SPEC i ALI  ZATI CN)  (SK IP , F(2 )  .X ( J) 

.FID): 

CUT    F ILE (3YSPP INT)    E D  I  T (  I  T EM  ,  SPE C I AL  I  i AT  I  ON )  ( COL ( 2 6>  , 

F  (  2  )  ,  X  (  7  >  ,  F  (  I  )  )  ; 
GET    r  ILE  (  SYS  IN  )    ED  I  T{  I T  E  M  .  T  E  AM  )  {  3K  I P  ,  ^  {  2  )  ,  X  (  3  >  ,  F  (  I  )  )  *, 
PUT    FtLE( 3YSPRINT)    E D I T (  I  T EM , T£ AM )  ( COu ( 2 6 )  .  F ( 2 )  .  X { 7 )  , 

F{  1 )  )  ; 

GET    FILE(SYSIN)    E U I T {  I F E M , S EM  IN A R  )  (  S  K I P . F ( 2 )  ,  X  { 3 ) , F (  1 ) )  ; 
PUT    FILE(SYSPRINT)    £  0 1  T  (  I  T  EM  ,  SEM  III  AR  )  (  COL  (  26  )  ,  F  {  2  )  ,  X  (  7  )  , 
F  (  1  )  )  ; 

G?-:T   FILE<SYSIN)    EO  I  T(  it  em  iBXP_GRAD_DATE)  (       IP,F(  2)  ,X{  3)  , 

F(  2)  .X(  3)  ,.- (  I)  J  ; 
PUT    F  ILE (SY3PR  INT)    E D  IT (  I TE M , E XP_GR AD_D A T£ )  ( COL ( 26 > , F ( 2 ) 

,  X  (  7  )  ,  2    {  F  ( 2  )  ,  X  (  2  J  j  )  ; 
GET    FILE(SYSIN)    EO I T { I T c M , RE 0   COURSE    GR ADc ) ( SK IP , F ( 2 ) , 

X  (  3  )  .  9    (  A  V  I  )  ,  X  (  4  )  >  )  ; 
PUT    FILE(  SYSf-iR  INT)    E  D  I  T  (  I  TEM  ,  R  EQ   COURSE   GR  AOE  )  t  COL  (  26  )  , 

F{  2)  ,X'.  7)  .  ;(  A  ,  X(  2J  )  )  > 

/« 

READ    TFE    VALUE    CF  FLAGJ 

*/ 

GET    FILE{3Y3IN)    ED  I T ( FL AG ) v SK I P , Al  1 ) )  ; 
/* 

COPY    THIS    INITIALIZED    RECORD   CNTO    THE   NEV<    MAIM  FILE. 

^/ 

Ji'-ilTE    FILEINEW)    FRC  M  (  Pc  S  SON  AL  )  J 
/* 

T.^ANSFES    TO    THE   LAOEL  LOOP    TG  BEGIN  PROCESSING  A  NEW 
RECORD. 

*/ 

GO    TO  LOOP; 

IF    TYPE    IS    £FT   TO    t,    WHICH    INDICATES    THAT    AN   OLD  MAIN 
EXISTS,    COPY    THE   RECORDS   FROM    THE   0..0   MAIN    FILE  ONTO 
THE    NEW   VAIN  FILE. 

*/ 

CHECK:       IF    TYPE    -    I     THEN  OO; 

copy:  read    FluE(ULD)    I N T 0 ( PER SO NAL ) i 

WRITE    FILE(NEW)    F fiO H ( PER SONAL )  : 

GO  TO  copy; 
end; 
finish:  end; 
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r;u  rpuT 
olscnIpticn 


Li-ir  Uf-  ruoaiNG  L  tAKij  I  no 'ACT  I  vrr  I  ts  tjv 

AribA    ANJ    THC    TiJTAL    NUMt>d;<    OF    MIbr>lNG       ■  • 
LEA-VNING    ACTIViriifS.       IN    AUOITICN,  THfcKfZ 
IS    A^    AL  PrlAaiCT  ICAL   LIST    OF  EXPIiCVKL) 
ORADtATtS    IN   A    TliA-1    HY    ScMINAN.  THOSE 
STL-'UcNT  5    WITH    MOxb    THAN   K  I  VH  LBAKNING 
ACTIVirikb    TO    COMPcETt.-.    Ai-iC   MAKKtIO   b  IT  AN 
•  »'  . 


algcsithm:  rc*!.)  thi-:   initial  data,    process  the  main 

f-ILt:    ^iTO.UNU    IN    THh    Sr,\UCTUHe  GRAO 
INf^OW.A  r  ICN    AtjCur    LXI'CCTfcD  GUADUATES 
IN    Ti-r-    SeMINASS    rieiNG  PPOCESSEO. 
CN  f:  NC  J  JM  :     I  NG    Tht    END   UF    Th£    M\i,N    F  ILC 
SOhT    T  n\i    bCKtiNAP.S    IN    THt    STSJCTU.^t  Gt^AO 
AL.'h  ACrir  ICALLY    liY   LAST   NAMu.  iiLlMINATE 
^XCt^SS    BLANKS    FRCM    THE    NAM£S    IN  Tf-t 
5  T:-.UCT'J;-5E    GRAO.       FOS    THE  kEQUESTS 
MAD£,    PliiNT    THE    INFORMATION   AoOUT  THE 
EXPECT>-_D    GI-ECUATCiS    IN    Twu  FQR.VS. 

NOTE  TH£    FCLLOWING    CECLARC  STATEMcNT(3) 

INCLUDuD    IN    THE    PROGRAM   NAMEO   ALL    MUST  BE 
ADDED    TO    THIS    PBOG'^AM   P.-^IC,^    TC  EXECUTION: 
I.       T:lE    STATEMENT   LA3ELEO   ONE  uHlCH 
CONTAINS    THE    STHUCfURE  PErtSCNAu. 


/* 

•^EaO    ThZ    ."^ANCE    Of    THE   T  E  A  li*    NLMaEKS,      THIS    (?ANG£  I;; 
USED    TO    DYii  fl-M  I C  A;_l_  f    CONTROL    THE    3T0SAGE    ALLOCATED  TO 
GRAO,    :- ACGLT  V  _NO    AND  VALUE. 


v,ET    FILEISVSINJ    ED  1  T  (  M  I  N      MAX  «)(  COL  (  1  ),  2    (  F  (  I  >  ,  X  {  4  )  J  )  5 

tJfv^INJ 
OECLAKH 
/* 

INCIC'.TCR    OF    THE    PRINT    STATUS    FOR    THIS    TEAM,  ♦/ 
oIT(  MIN-»:  VAX.^#)  tilTIl), 
/  ' 

AN    ENTRY    POINT,    F  0,^.    INSTANCE    ENTRYd),    INDICATES  THE 
NuVriE.l    OF    THE    POSITION   PfUICEEOiNG    THE    BEGINNING  OH 
THIS    SGESTA.\T!VE    AnEA     IN    LEARN  IrjG_A.  */ 
tNT:<y(n)    i-IXED   JINA;-;,Y    I  N I  T  I  AL  ( 0  ,  o  ,  I  9  ■,  3  I  .  ■>  .1  ,  £0  .  56  .  66  . 
£<i  ,67  ,'J  i)  , 

DICTIuNA-iY   OF    FACULTY    MEl'I.IER'S    NAMES    ASSOCIATED  y<ITh 
THH    COOES    kI-CO'-^UED    I  f  J    PE.?SQNAL  .  */ 
FACUL  T Y( 20)  .  CHA  ^ AC T EJ (  14)     IN{ T  iALl  • bEHNARO' ,  <CUKRAN • , 
'  J!-TU!;E  '  ,  ••  Ft  Y  •  ,  •  GO  JD..1AN  •  ,  •  HI  Ll  I  ARU  •  i  •  JESTER  '  , 
■     I  N/.E  < '  .  '  LE/-  !  S  '  .  •  U  ITCHEP  •  ,  '  MAP.T  INCLLO  •  .  •  NEWCC  MO  •  , 
'OLSCN  '  ,  'PENLAN  J  '  ,  •  I-U'aE'  ,  '  SE  «  APH  I  NE  '  t  •  SHEA*  ,  «SM  ITr-'  . 
•  r  ISON'  ,  '  *  ILMOT •  )  , 

/* 

FACLi-TY    NUMBERS    OF    THE    SEMINAR   LEAOEi^S    CY    TEAM.  ♦/ 

F  ACUuT  Y_NO  (  M  IN,*  :  M  Ax  <f  ,  4  )    FIXED  HINARY. 

/* 

SELECTED    DATA    STO'^EO    CN   EXPECTED    G;"JACUATES    IN  EACH 

T  t:  A  M    '3  y    S  E M  I  N  AR  .  * / 

1    G.s  AD  (  M  1  N^f  :  M  A  X/<  ,     ,  1  0  )  , 

,1    NAME    CH/U;  AC  TE'U  2 Li  )  . 

Z    ACT  I  V  !  TY  (  I  1  .  b  )  ,F  i  XED  UINARY, 

2    TOTAL    FIXED  cilNA.iY, 

/•« 

EXPECTED    GkACOATICN   DATE    TO    UE    CHECKED.  */ 

I  rEST_i;ArE. 

e  YK  F  I  xLO  0  in;.;<y  . 

JTR    FlXEC    0!NA,3Y,  » 

/T 

COUNTEF.    KOK    THE    NUMDEnl    OF   EXPECTED   G.?AOUATES    IN  EACH 
T!:aM    iiY  SEMINA.^. 

VALOE  (M  INA- :  M  A<  «  ,4  )    rfXEi;  liiNA;?Y» 


■  So 


/* 

CCLNTt-P   HUP    TliK   fJUf-'LlHl)    (JH      15  J  INt.  LClAf^rjING  ACTiVlTItS 
I'l   iiACH    SUlJL.  TANr  I  VI-:   AKi.:A.  */ 

VALiJi;_A (  I  I )  hi/.co  ij(M»iRy, 

A«liA(3iJ)    KIXUO   .jIMA'ir     I  N  S  T  I  AL  <  (  6  >  1  .  (  I  J  )  i: .  (  t  ;?  )  J  . 

(  I  0 ) '» ,  (  w )  ij .  ( (S )  ■! ,  ( I  0  )  7  .  ( j  T  •  ( 5 >   .  ( » )  1 0 1  { .n  1 1 )  • 

cuF._!:Ari-;  char  ac  fr:-;  (  e  >  , 

c L i;     1 L  r.  unc a i-  j  <; !-    e m'  i  al  . 

SCMUJA.^*    f-IX.:0  JlNAfiVt 

G  rn;  cha  ^ACTe:^;  ( ^i'a )  , 

TitAM*    f-lA'-ZD    b  I  nary. 
I     T-..MP,  ' 

^A^^:    CHAF  aCT1;S  (^i  i  )  , 

AC  T  1  V!  TY  (  I  I  .  b  )'  I- I  XCO  blNAI^y, 
^    TOTAL    hlXCO  lilNA.iY; 


Initialise  Gitao,  faculty  no  a.nj  valuk. 

(i^  a  O.N  AM  t    -    •  0  '  ; 
G'=  Aiy.  /VCT  I  V  I  TY    =  O; 
G  :^    C  .  T  Q  T  A  u    =    0  ; 
FACIAL  TY_MJ    :  O; 

vAuue  =  o: 


i:n  e NCC'uNTjrR  ing  an  illegal  subscript  in  a  student's 

PZCui^O,    print    THC    bTUuEf'T'3    SOCIAL    SfiCU^mC    NUM.itiK,  TdAM 
NUMJcr!  ,    FACULTY    NUMBtit^f    S^MNAH    NUMOdS    AND   ThE  TOTAL 
^UM'JF:^i    UF    EXFECTtO    G-<ADUATeS    IN    THIS  ScMINAf?. 

*/ 

Crj    SLiiSCR  :  i^TtANGF  BEGIN; 

PUI    FILh"(  SYSPr"  INT  )    Lii  I  T  (  •  SUiJSCR  I  PT    OUTSIOc   LEijAL  »  t 

'  U  TLNO  :3'  f  »  SGC_  JLC_Ni3  -  'tSOC  StiC  NOi'TcAM  =  '.TEAVi 
•Sfc'UNAR  =  •  ,SCM  INAP  ,•  VALUE  =  '  •  ,  V^  L  JE  (  Tt  AM  ,  SulM  I  N  AP  )  ) 
(X    A  ,SK  IP ( J  )  ,  A , A  ,X( b)  ,3    (A,F(2)  , X( 5J J  )  ; 

GO  T J  finish; 
i-ND ; 

/f 

CN    ciNCGlNTESING    the    ErJD    OF    Th£    MAIN   FILE    T.^ANSFEP.  TO 
SU.^T.  */ 
UN    ENjrn.EIULO)    GJ    TO  SORT; 
OMEN    r  Il£{  S  CSPr-;  I  NT)    LINE5I  <:E  (  I.JO)  : 

/« 


;(EAc;  tme  clfhent  date.      ti^en  read  the  expected 

G-IADGAriON    OATE    TO    OE  CHECKrEO. 

*/ 

GET    FILt(SYilN)    E.:)  i  F  (  CO  m       A  T  F. )  {  COL  <  1  )  .  A  (  9  )  )  ; 

GET    f^ILh(SYSIN)    EJ  I  T  {TEST_DATE  )  (  COL(  I  )  ,F(  2  )  ,X(  3)  ,F(  I  )  )  : 


r-i.Ai;    ThE    NU.VBfcK    OF    TEAMS    TO    aE    PP.JCESSED.       TFEN   FO  *  EACH 
TEAM    'vEAC    THE    Ti.AM    NUMdLR.    THE    NUMBER    OF    SEMINAPS    TO  bE 
P.^OCtSSEOt    AND    THE    SEylKAfJ    NU^IBER    AND   FACULTY  NUMiJEI? 
CF    EACH    :;EMINAk    TU    tic  PKOCESSEO. 

*/ 

GET    FP_E(SYSIfJ)    EC)  I  T  (  N0_  C  A  FJD  S  )  (  CCl  {  1  )  ,  F  {  2  )  )  ; 

Dd   I  =  i   Tj  no_.ca-<l:s: 

Gh  T    FILE(SrSIN)    E  D  I  T  {  TE  A  ,v  ^  ,  L  F  M  I T  ,  (  SE  M I  N  AR -»  ,  F  A  CULT  Y  N0( 
Tt  AM<«  ,  SEaI  INA  <'/  )    DU    J    =    1    TO    L  I  M  I  T  )  )(  C  G  L  (  I  )  .  2    {  F  (  1  }  , 
X(^»)),^  (F(l).x(A),Fi2),X(3))); 
END  ; 

/* 


P:-.OCl  -J.-J    THE   FILE    SH  QUEN  T I  ALL  Y .      fiEAU   A  STUDENT'S  i?ECaf-D. 
i;-    Tn..    ,<ECa,<!:)    is   NJT    tj    JE   '-^f^INTEO.  T^Ai>iSFER 
TC    :.ri,P    TC    JtTAIN   A    NEW    IRECORO.         CHECK  THE 
STUDLNV'S    EXP!-:CTEa    G.MDUATICN    DATE    AGAINST  FHF 
TKbT    l>ATr.       IF    THE    DATES    A.'-<E    N(DT    EOJAu.    UiJTAIN   A  NEW 
Ki.CG,-)C.       UTHEKVdSE.     INCKE.^ENT    THE    CCK,«ECT    CGUNTE.<  -IN 
VALUE    iJY    CNE.       STUirE    THE    jTvJDENf'S    NAME.    THE    NUMFiE'JS  CF 
r-.E    MISSING    LEAVNIN^   ACFIVITIES    OY    Ai^LA    w  I  TH  A  MAXIMUM 
UF    liVE    AC  r  I  VI  Til- G   Pt-i^    A.^EA,    AND    THE    FCTAL    NUMnE.J  OF 
MI5SI.JG   LEA^NiNG   ACTIVITIES    IN    THE    GTquCTURE  GRAO. 

*/ 

lcgf:      f-.EAu  fill(cld)    I  ntu(  fe.jscnAl  )  ; 

IF    TlAM    <    .MNI    I    TEAv^    >    MAX//    THEN   GO    TO  LOOP; 

IF    F  ACUL  r  Y_N(j(  Ti_AM  ,  5EM  I  NAfO    -    0    THEN"  GU    TO   1  GUP  ; 

IF    E  XP.G  ^  AD_DATE  .  YR    -i-    TEST   DATE.Ym  | 

f:XP..G^  AD_  DATE  .  QTR      -    TEST    DATE.OTfi    THEN   GO    TU  LOOi>  I 
VALlE(  TEA.-I         MINA,))     t   V EUE  (  I  E  A  m  ,  s  l;'.  I  N  A.J  )     t  i; 
GI-.  AD.  iN  AA,f:  (  T  E' A  M  ,  bf.  ■)  INAR  ,  VALUL  (  FiZAV  .  5.=  MI  NAH  )  )  = 
PERSONAL. LAST    |i     •,'     \  \    PER  SON  AL.  .  f  I  ,<  S  T  ; 
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o.i  I   -  !  TO  oa: 

It^    L!iA(<N:Ni,_A.!-AC  J!.rY(  I  )     -   0    THi'N    DO ; 

VALUl;    A(A('tAiI)}         VALUC    A(A:;uA(n)    ♦•  t: 
Ir    vALUi:    A(A^I■;AlIJ)    >    b    fHCN    OO    TL!  NTXT; 
'o  ■(  AO  .  AC  r  [  V  )  1  Yl  V,£  A     ,  SlIV  I  NAM  ,  V  ALUi.  (  T  li  AM  ,  SfM  I  NAU  )  . 
A  <t:  A  (  I  )  ,  V  Ai.Ur;_A  (  a;  rlA  (  I  j  >  )     =    I    -    I"  N  f  KY  (  A:^  f:  A  (  I  )  )  ; 
NEXT  :  Ij.'i  A  J.  r  J  r  AL  {  Tc'.AM  ,SlM  in  AK  .  VALUk.(  Ti;  AM  ,  SiM  INA'-i  )  )  - 

oP.AO  .  fUTAuC  fti  A,v  , -i.:  M  IN       ,  VAl.lJ[-:(  TIAM  ,  Sli  M  INAn  )  )     »■  i; 

ENU  ; 

GO  fc  i.'jcp; 


SbT    air    70    A    'I'll    Ii-    THIS    fi;  AM    IS   NCJT    TO   Bt  PRliJTEO. 
ilJir    ri-!(?    3u.MJNAi;i:,    IN    iHL    jT:<UC<"URt:    ijJ^AU    ALPHAtlt-:T  ICALLY 
UV  NAMK. 

*/ 

sCriT:      00  TE\;^v  -  ,vin«  to  mak?/; 

131  T(  rCA.v*  )     -   (- ACUl.Tr_NC  t  TCAf.'i5f  ,  1  )    =    0  fc- 

("ACULTY    N0(ftA1;»,.O    -    0    C    PACULTY    Na(TtAM»-.3)    "    0  & 
F  A  .:ULT  Y_N  T  (  TcAMrt  ,'+)     =0;  ~ 

l»-    iJ  IT  (TEAM*)    -    "I'li    THCK    CO    TO  T_c:MO; 

c  c  3  E  y  I  N  A  ;i     =  I   r  0  4 

IF    H  ACUL  TY_NO:  TtlAM-l^  ,  SE.V  I  NAR;/ )    -    0    THcN   GO   TO   S  END; 
DO    I    =    i    TU  <3; 

OU   J    -    I+l    TQ  lo; 

Ir    (i- AD  .  N (  T'j;  A  y  »  .  5EM  ItNlAR  ^•^f  I  f  > 

.irjAD  .NA,M-:(  TlIAv,,.' .stiMINA^^*  ,  J  J     TUtN  DO; 

THMP    =    L,.x  AL>(  TtAVI,;*  ,  SS  HI  NAR*  .  I  J  ; 

GrtAU(  TCAM// ,  5t£  M  NAA»  .  I  )    -    GP  AU  (  TKAM*  , 

bhM inaa* . J) ; 

v.iJAL)  I  TEAMrf  ,3EM  INAR*  ,  J)    =  TEMP; 

£ND ; 

END  ; 
END  ; 
S_ENC:  end; 
T_£Nc:  end; 

P-.CC!:S3    THE    NAVtS    irj    THt:    STSUOTUl^E   GiTAD.       CHANGC  ALU 
DJM..1Y   NAMt'.'i.    NACEIS    v.'HICH   MA  J   BttN    iNlTIALiZEO   TU  '0' 
Fo?    Slj^riNG    AND    HAv'B   NCJT    dticN    CHAMGtD.    TC  HLANK. 
i-'L.IMINAre    dXCC5iS    liLANivS    litTwECN    THE    STUDENT'S  LAST  NAME 
AND     IHu     •  .  '     IN    NAMif  . 

*/ 

fcLAN.^;       CO    TSA.v*    =    (•'!N«    TO  MAX*; 

ci>  s;-;:>ii NAf^A'  -  i  tc  4} 
?.c  NUM  =  1  TO  10 : 

Ii-    G,-.  AD  .NA  -U-:  (  TL  AM  V  ,  SHM  1NA.-J»  ,NU.M  )    -  '0» 

ThuiN    G?>AD,NA,VE(  Tl-A(/^//  ,  SEM  tNA«*,NUM)    =    •  •; 

ei.s:i  DC; 

3Tr.    =    SUUSTR  (  G.^AD  .  KAMii  (  TEA  M,V  ,  SEM  I NA'-?  V  ,  NU'I)  , 
1  •  1  rjUaX  (  G'^AU  .  NAME  (  TE  AM*  ,  Sr.  f-U  NAH  *  ,  NU.M  )  .  .»     •  > 
-    i;     II     SUbST.^(GKAD.NAMi;  (  TEAMO  ,3tM  INAr?,*, 
NGM  )  ,  I  NDEX  (  Gr<  AD  .  NANiE  (T  EAM*  ,  SEM  I  N/--?  '/ ,  NUM)  ■ 

'.')); 

G-<aD  .NAME  {  TEAMf  t  SEM  INA  R.-/ f  NUM)    -  STR; 
END  ; 
END  e'_AN(<;; 

/  * 

PRINT    A   LIST    FO:i    EACH   SEMlNAK.    ONE   LIST   PER   PAGE.  OF 
EXPECTED    G:-{ADUmTES    WITH    INFOftMATlQN   ABOUT  MISSING 
LtAf^NING  ACTIVITIES. 

.  */ 

DO    TEAM-*   -    KIN-*    TO    MAX*  ; 

IF    Bir(TEAi.1»)     -    'I'M    THEN    GO    TO  QUTEai; 
DC    -SE.-IINAS*    =    I    TO  a; 

IF"  F  ACULTY_NU(  TE'AV/*  ,SEM!  NARsO  =  0  TFEN  GO  TO  INNERi; 
/  » 

>MlNT    THE    HtADE.^    INFORMATION   FUn    THE    FIRST    PAGE  OF 
f'l-tlNT. 

Pur   F  ILE(  i^YSP^INT  )    EC  I  T  (  CUR_CATr-  )  (  PAGE  t  A  )  ;  *^ 

PLT    K  I^K { SYSPk I  NT  J    E 0 1 T  (  • C HE CK  •  »  ( S K I P , A )  ; 

PU  r    F  1  LE  (  SY  SPf-  1  N  r  )    ui;  I  T  (  •  GR  ACJAT  K.iN   LtSr:»,'Yi?    ~  «, 

Ic  ST_iJATr.  .        ,  '  uT,i    =    •  ,  Tt:  <iT_DATC  .  .) Tii  )  {  S X  1  P  ,  A  ,  X  (     )  , 

A  ,  F  (  ^  )  ,  X  (     )  .  A  .  F  (  I  )  >  ; 

PUT  F  ILE(  sy;:pk  IN  r )  i:d  i  t  ( 'output  description: 

•i-USblNO    I.EmI<NING    AV.T1VITIES    tJ  Y    AxE  A  AND 
•TCTAt.    NUMBC.^    OF    Mt?'iING    A  C  T  I  V  I  T  1 1;  S  •  ,  •  TF  AM    -  », 
fi.AM'/  ,  ■  .SEMlUAi^    =    '  .FACULTY  IF  ACULTY  NUlTEAM*. 
SL.vlNAKrf)  )  )  (  SKIP,  J    A  ,r.M  P  ,  A.  F  I  1  )  ,x'<,i  )  ,a  A); 
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PUT    K  JLfc  (  SYSPri  I  NT  )    tj'.-)  IT  ;  (  •  IR  £A  •  .  t    U(J    I    =    I    TU  II). 
•  Iin  Ai.  '  )  (  .SKI     (  ',)  ,  t.UL.(  ,  i  ^    <  A  ,X  (  I  )  .r(  i!)  ,X  (  I  )  )  )  : 

por  FiLt:  ( SY;i»  <  ir.  r )  i;uiT(i»  _  _  _  '  do  i  =  i  ro  ii), 

•  '  )  (  SK  IP  (  0  )  .  A  (  ^ii  !  .  I  .i    (A  ,  xT  1)  )  )  ; 


F:nNT    IN    ALPMAUF.r  ICAU    UHOcR    UY    LAST    t-IAHH   TH(";  TJAMc, 
MIS5!Ni,    lI:  AkN  I  t<lU    ACTIVITY    NUMIltt-S.    ANL;   TGTAu  (mUMHER 
Cl-'    MlGil.MO   i-i:  Ai<N  1  iNij    ACTIVITIK'i    h  Oft    i£ACM  tXPLCTCO 
ACHAT  c. 

*/ 

OU    NUM    =    I     TO  lO: 

IF    CUAU.NA'-1,:(  TtAM,r  .StMINARrftNJM)    =    •     •  THEN 

GC    TO    I  NW:  i<  I  ; 
PUT    F  ILi;  (  ;iYSP,^  I  NT  )    HDIT  (  OK  AD.NAME  (  Tk  AM»  ,  31£M  INAil  #» 

NUM)  J  (  3KIP( J)  ,A)  ; 
DO    I    -    1    TO   l>  ; 

IF    S  JN' (  OP.AO  .  ACT  I  V  IT  Y  (  T  r:AM/^  ,  SCM  INAF,      NUM  .  *  .  t  i  )  = 

0    TK£N   00    TO  F_CND; 
FUT    r  ILh  (.'^,Y-SP!!  [NT  )    t  D  I  T  (  GK  AD  .  A  C  T  I  V  I  T  y  (  TF.  AM  Sf , 

ScMl  iNAR.>  .NUi-l ,  *  ,  U  )  (COL  <  ^9)  ,  1  1    (  F  (  2  )  ,  X  (  6 )  J  )  ; 

F_F.ND;  i-'UT    F  ILF  (  SYSPk  INT  }    b^B  IT  ( Ci;^  AD  .  TOT  AL  (  TEAM*  , 

Sc  vtlNAK-f  ,NUMI  )  (  CUL(  1  15)  .F{  J)  )  ; 
£ND  : 

I  NNCK I  :  END ; 

OuTtr^  I  :       END ; 
/- 


Pr.  INT  A  LIST  OF  exPEiCTED  GRADUATCS  FOR  EACH  TEAM. 
P^INT    CNu    T  =  AM    PF.:;    PAGd  . 

UU    T  Fa  '-1  u    .-    --I  I  N  »    TO    M  AX*; 

1=    U  IT  (TdA.-l/J)    -    'I'L'.    THEN    GO    TO  OUTeR; 
/  * 


PkINT    Thii    ULADCR     INFOFmMATIGN   FOR    IIACH   PAGE    OF  PRINT. 

*/ 

t'w  r    FILE:!  SYi-PKlNT)    ED  I  T  (  CUP:_DA  Tt  )  (  PAGE  ,  A  )  ; 
PUT    F  Ice  (  SYSPF  INT  )    ti  0  I  T  (  •  C  HL"  CK  •  )  < '5  K  I  P  ,  A  )  ; 

i- 'j~  r  I LE  (  ;  y-jp:-;  INT  )  to  i  t  ( ■  oRacoat  ion  list:','yr  = 

1r.  S  r_DATL"  -  Yi^      UTR   -    •  i  Tt  S  T_C  AT  E  .  OT  R  )  {  5 1<  I P  ,  A  .  X  (  ^  )  ,  A  , 

r  i  2 )  ,  X     )  ,  A ,  F  (  1  )  1  ; 

P..T    F  r!_;^(  .'-.YiiPrc  [  KT  )    tiO  J  T  (  •  GUTPU  T    DESCRIPTION:  •, 

'  ALPHAH:£T  I  CAi_    ^IST    CF    KXPFCTED    G^ACUATES    IN    A    TEAM  » 

.'LiY  :;tMiNA;;.     students  ;uth  ko.'ve  than  5  leahning  ». 

•activities    TI'J    CO-iPLETE    A>;E    N'ARKED   UY    an  •«'.'TEAM«. 
TE  A.-l*  )  (         P  ,  2    A,SMF,m2i,2    A  ,  SK  1  P  ,  A  ,  X  (  2  )  ,  F  (  1  )  >  ; 

pjT  sk:p( 1 0) ; 

/  « 

PriuCc^S    THE    DIFFE>iENT    JEVINARS    WITHIN    THE  TEAM. 

CC    S^^-^INAR*    =    I     TO  ; 

IF    FACGL rY_NO( TEAM? .SEMINARS )    =    0    TFtN    GO    TO  INNER; 

NCNdLANK    -   .NONHLANr;    +    X  ; 

/-< 

FKINT    THE    SEMINAR   LCAOE^^'S  NAME. 

PUT    FILE(  SYSPKINT)    E  D  I  T  (  F  AC  U  LT  Y  (  F  A  CULT  Y  NO(TEAM<.', 
SEMINA.7^  )  ))(X(11),A); 
INI'^Efi:  cNO: 

Put  r  ile(  s^spi^i.-jT)  !-:dit(('  »    oo  i  =  i 

T  J    .NCN.lLAliK,  )  )  (  SK  IP  (  0  )  .  (N0k;3LAM^J  tX  »  1  1  J  ,  A)  )  ; 
PCX  3kIF{(^); 
/  * 


P.x'iMT    the    names   of    expected    G.'-.ADUATES   UY    SEMINAP  IN 
A1.PHA3F  r  ICAL    GKUu-<    liY    LAST    NAME.       MARK    THOSE  STUDFNTS 
AlTH    MC,'.F.    THAN   FIVE   LcAj-iNiNG   ACTIVITIES    TO  COMPLETE 
Vi  i  T  H   AN    •  «  '  . 

nc  NUM  =  1  TO  lo;  *' 
PLT  skip; 
.■<.(:lnt  =  1 1  ; 

DO    H'CtAlUA-nt    =    1     fC  -v; 

IF    F  ACUi-'i  Y_NO(  TEA/'-y  ,SL  ■«  i  NAn*  )    "    0  j 

G  -)AJ.iMAMt(  TEAM.'/ .  SEMINAR./ .NUri)    =  •     •    THEN   GO  TO 
I  NNE  u,\  ; 

IF    "J.?  AD  .  TOTAL  {  TC  A  .V./  ,  si;  V  I  NA  f.#  ,  NUM  )  >  5 

THEN   l>oT    f-  iLh  (  SYSi^R  INT  J    EU  I  f  (  •  «  '  ,  GR AO .  N AN!t 

(  TEAMrf  ,:;EM  INA:;  «  ,NUM)  )  (  X(  KiJUrjT  -  A); 


J  ^ 


ELS.-:  PUT  !•  n.i:  ( Y-ipr;  i.-n  >  r.ij  i  r  (Oi? ad.  nami-; { r gam*  i 

KCtiNT    =  i; 

lNNtR2:  cnd: 

hnq; 
outer:  eno; 

ENO; 

finish:  end; 


%4 


P!?OC£i;URe   OPT  UJN3(  MA  IN)  • 
/* 

pkcgram;  FiuE 

Ce-iCfiiPr  ION :      aschnoing  list  of  the  stuohnt  records  in 

Tun    MAit^    FILE   MY    SOCIAL  SECU«ITY 
algorithm:  PEAD    THI£    initial    OAT4  .      PnOCE5S    TMK  FILE 

seojeNri A\.LY  by  reading  a  u.ecoro  ano 

KRINTINli    SPECIFIC    lNrO;-?MAr  ION  Fl^OM  THE 
prCURO.       ON   EKCCUNTEHING    AN    END   JF  FILE 
TErlMINATE    THE   EXtCUTION   OF    THE  PROGRAM. 

MOTE  THE    FOLLOWING    DECLARE  STATEMENT(S) 

INCLUOElJ    I  .\    THE    PROGRAM   NAMEC   ALL    MUST  BE 
ADDED    TO    THIS    PROGRAM   p.^lOR    TO  EXECUTION! 
1.       THE    STATEMENT    LA13ELEO   ONE  ViHICH 
CONTAINS    THE    STRUCTURE  PERSONAL. 

♦  is  *k*lf**^!**»*  **********  ****** 

♦  / 

/* 

READ   THE   RANGE   OF   THE    TEAM    NUMBERS.       THIS    RANGE  IS 
USED    TO    DYNAMICALLY    CCNTROL   THE    STORAGE    ALLOCATED  rO 
FACULTY  NO. 

*■/•■■ 

get  file(sysin)  ed  i t { mi  n . max ) ( col (  13  . 2  ( f  (  i  )  .  x ( 4  )  ) )  ! 

oegin; 

DECLARE 
/* 

DICTIONARY   OF    FACULTY    MEMBER'S    NAMES   ASSOCIATED  WITH 
THE    CODES    RECORDED    IN    PERSONAL.  */ 
FACULIY  (.<:0j    CHARACTERC  14)     I  M  T  1  AL(  •  cEKNARD  •  ,  '  CURftAN  •  . 

'DETUf'E  '  .  'FEY  '  .  '  GOODMAN'  ,  '  H I  LL  I  A  RD  •  ,  •  .JE  S  TE  R  •  . 

=  :<  i  N^ER*  .  •  LE'V  IS'  .'LI  TCHER*  ,  •  MART  INELLQ  •  .  'Ntv-XOMU  •  . 

'QL'"iCN'  ,  ■  PE  NLAND'  ,  •  ROaE*  .  '  SERAPH  I NE'  .  '  SHE  A  •  .  •  SM  I T  H  •  .  . 

•  T  ISCN'  ,  ' H  ILMOT  •  )  . 

/* 

FACULTY    NUMBERS    OF    THE    SEMINAR   LEADERS    OY    TEAM.  */ 

FACULTY_NCCM  IN  :  MAX  ,4)    Ft /.ED  BINARY. 

CUR_DATE    CHARACTER ( 3)  I 

OLD    FILE    RECURO  SEQUENTIAL; 

/« 

ON   ENCOUNTERING   THE   END    GF    THE    MAIN   FILE   TRANSFER  TO 
THE    LABEL   F  IN ISH. 

»/ 

ON    ENDFILE(OLD)    GO    TO  FINISH; 
/* 

ON   ENCOUNTERING   THE   END    OF   A   PAGE   GF   PRINT,    PRINT  THE 
HEADER  INFORMATION. 

*/ 

CN    ENCPAGE  {  SYS  I  N)  fJEGIN; 

PUT    F ILE( SYSPR INT  J    ED  IT ( CUR_CATE ) ( P AGE . A ) ; 
PUT   FILE( SYSPF INT)  EDITI'FILE', 

•OUTPUT    DESCRIPffOM:    ASCENDING   LIST   OF    THE  STUDENT 

•  RECORDS    IN    THE    MAIN   FILE    BY    SOCIAL  SECURITY 
•NUMEER  •  )  (  SK  IP  ,  A  .SK  IP  ,  J    A  ) -J 

PUT    F  ILE (SYSPR  INT  )    EDIT!  'SOCIAL    SECURITY    NO",  'NAME'  t 

•  TF  AM'       SEMINAR  ■  , '  '  ,  •  •  ,  ♦   ■  _    •  » 

•  »  )  (  ;vX  I  P(  6)7a  ,COL  ( i?5)  .A  ,COL(  60  >  ,A  ,CCL  (70T  ,  A. 

SK  IP  t  0  )  .  A . COL (25). A  ,CGL(60),A,COL(/0»  ,A)  ; 

END  ; 

/♦ 

CN  ENCOUNTERING  AN  ILLEGAL  SUOSCRI"T  TRANSFER  TO  LOOP  TO 
PROCESS    THE    NEXT  RECORD. 

*/ 

CN    SUOSCRIPTRANGE   GO   TO  LOOP; 
/* 

READ    THE   CURRENT   DATE.  -  > 

*/ 

GET   FILE(SYS£N)    ED  I  T '.  CUR_CATE  )  (COL  <  1  )  ,  A  (  0  )  )  ; 
/* 
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?r-^u  Ir^^n'^V*^  '"Sc"'^  TCAMs  TO  nc  PKocessco.    ruiiN  tor  cach 

.Iri^i?.'"^"'^    ^"f-  fUJMI3r:f{.    Tfifc    NUMBCIi   OK    SUMINArJS    TO  1)E 

PfJOCESSi.D.    AND    THE    bCMlNAR    NUMBCl?    AND   FACULTY  NUMi3l-« 
OF    £ACH    SliMlNAR    TU    mi  P1?0CIIS?C0. 

GHT   FILECSYSIN)    ED  I  T  (  sa_C  A  HU3  )  <  COL  (  I  )  ,  F  (  ?  )  >  : 
OO    J     -    I     TO    NJ_CAW,D5;  * 

GdT    FILli(SY31N)    I.  O  i  T  (  TE  AM*  ,  H  M  I T  ,  (  Sf  M  r  N  A  W  #  ,  F  ACUL  T  Y  N0( 

TfcAM^.StTMlNAR*)    OO    J    -    I    TO   L  I  M I  T )  )  (  COL  (  I  )  ,  2  (F(T), 

^  <  4  )  )  ,       (  F  (  I  )  ,  X  (  U  ,  F  t  ;j  )  ,  X  (  J  )  )  )  ; 

CNO ; 

/* 

PRINT   THE  HCAOER    IMFORMATION  FO«   THf:   FIRST   PAGE  OF 
PRINT. 

*/ 

PUT    F  ILF.(  SYSPR  INT)    FDITICUR    liATE  )  (  PAGE  ,  A  )  ; 

PUT    F  ILH  f>Y3PU  INT)    F_0  •  T  (  •  F  I L E  »  t 

'OUTPUT    D~SCM  PTt  on;    A  FjCE  ND  !  r.G   LIST   OF    THE   STUDENT  », 
'    RECORDS    IN    THE    MAiN    FILE    BY    SOCIAL    SECURITY  ». 

•  NUMdEP  •  )  (SK.  IP,  A  ,  S.<  I  P  ,.3    A)  ; 

PUT    '-ILtl  SYSPfUNT)     EOIT(  'SOCIAL    SECURITY    NO'. 'NAME', 

•  T  EAM  •  ,  •  SEM  I  NAR«  ,  '.•_         •,•  •, 

'  •  )  (  SKIP(  6  )  ./vM'OLIiJSTTA  ,COZ(60)  .  A7caL{  7oT7a. 

^^Sl^  IP  (  0  ;  .  A  ,COL(  25  >  .A  ,COL(60)  ,  A  ,  COLl  70  )  .  A)  ; 

process  the  file  sequentially, 
lccp:      read  filf(olo)   into( personal ) ; 

PUT    file (SYSPR  I  NT)    E r  T ( S GC^ SEC_ NO , SUQSTR ( N AME .L AST , I , 
iNCtX'.NAMt.LAST,  •     •)-    I)    J\    ....    ||    N  AME  .  F  I RS  T  ,  TE  AM  . 
.-/ClJLTY(FACULTY_NO(  TEAM, SEMINAR)  ))  (SK  I P  ,  A  ,  COL  (  25  )  ,A, 
COLI 60 )  ,r (  1  )  ,COL( 70?  , A) ; 

GO    TC  LCGP; 

END  ; 

F IN  ish:  end  : 
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other; 


MESSAGE 


program: 


OPriGNSJMAtN) 


OUTPUT 

oe.scp.  iPT  ION 


A^CtMHNG    LIST   UY   SOCIAL  SECURITY 

NUi':i!(-:i<  Of-  sruohNTS  whosh  "RECorvos  rin<?e' 

PUi<i;tD   t-RCM    TKt;    MAIN    FILE    AND  OESTaOYtO 
UNLliSS   OTHERWISE  INDICATED. 

ALGOPITHM:  '  READ    THE'    INITIAL    DATA.      PROCESS    THE  MAIN 

KILE    ny    STORING    SELECTED   DATA   FROM  THE 
PURGED    P.ECCnDS    <N    THE    DELETE    FILE  ANO 
CRHAriNG    A    NEW    MAIN   FILE.      PIUNT  AN 
APPPCPRIATE   MESSAGE   FOR    EACH  RECORD    TO  RE 
PURGED. 

^O^fi  THE    FCt. LOWING    DECLARE  STATEMENT(S) 

INCLUDED    IIS    THE    PRUGSAM   NAf^ED   ALI     MUST  BE 
ADDED    TO    THIS    PROGriAM    PRIOi^    TO  EXHCUriQN; 
I.       THE    STATEMENT    LAUELEO  ONE  WHICH 
CCNTAINS   TH£    STRUCTURE  PERSONAL. 

***** -It  A  ****  i^r^jX*  *******  + 


DECLARE 
/* 

3 1 T    WHEN    SET    TO    •  I • B 
HAS    BEEN  ENCOUNTERED 
UlT    BITd  )  , 
/* 

CONTAINS    SELECTED  INFORMATION 
CEP  GRADUATES. 
I  GRADUATE. 

2    SOC_SEC_NJ    CHARACT£n(9)  , 
2  NAME, 

J    LAST    CHARACTER(  14)  , 
3    FIRST    CHA;^  AC  rER{  I  0  i  , 
3   MIDDLE    CHARACT;;R(  14)  t 
2  PEF^M_AUDR, 

3    STREET    CHARACTER(20) , 
3   CITY   CHARXCTEPi 20) . 
3    STATE    CHAR ACTCa( 2 ) » 
3    ^IP   CHARACTER(.'?>  , 
CLR_OATE    CHARACTER! 8J » 
/* 

cXPECTED    GP.ADUATIGN    DATE  TO 

1  TEST_DATE, 

3    YR    FIXED  aiNARY, 
3    Q1R    FIXED  LilNARIY. 

(OLD. NEW, DELETE)    FILE  RECORD 

SS_Na    CHARACrEK(9) ; 

Q I  T  -  •  0  •  a ; 
/* 


INDICATES    THAT    THE    END   OF  FILE 
ON   AN    INPUT    DEVICE.  */ 


TO   BE   RETAINED   ON  ALL 


HE  CHECKED. 


iEDUENTIAL 


CN  ENCOUNTERING  AN  END  OF  FILE  ON  SYSIN,  WHICH  INDICATES 
nt'll    I'i^'i^    ^"'f  PECORDS    TO    OE    purged'  FROM  THE 

MAIN  FIt.h,  SET  UIT  TO  A  •  I  «.B  .  COPY  THE  REMAINING 
RECORDS   ONTO    THE    NEW    MAIN   FILE*  kc^haining 

CN    ENDF  ILE  {SYS  IN  )  OEGIN; 

IF    L3IT   =    'I'U    THEN   GO    TO  FINISH: 
G  I  T    =    "  I  '  G  ; 

READ   FILEIOLD)    I N TO { P ER SONA'  ); 
WRITE    »^ILE(NEw)    FROM!  PEHSCNAL)  : 

Gc  TO  others: 
end; 

/  » 

CN    ENCOoNTcRING    AN  fVD    OF   FILE   ON   OLD,    VVHICH  IfJDICATES 
THAT    NO    MORE    HECORDS   EXIST    IN    THE    MM  N   FILF.    SET    DIT  ffj 

A    M'H.       PRINT    THE  REr.AIN^NG    SOCfAi      SFTURITV    MiiMnra.-  tA 

Oe:   PLRGED    WITH    THE  ME  SS  AGE  *  •  MISS  I N'^  .  •  .iUMDLRo  TO 

CN   ENOFILE(CLD)    BEGIN;  •  *^ 

o^it'''-' M'M- '^"^  ^°  finish:  . 

:      PU  T^  F  I  LE  (  S-^SPR  INT  )    ED  I  T  I  •  M  I  SS  I  NG  •  ,  SS.NO  )  (  S;.  I  P  .  A  .  X(  I  2)  . 
GET   FILEISYSIN)   E  0  ITX  ::.S..NO  )  (  3K  IP  ,  A  (  0  )  )  : 
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GU    i"0  MtlSbAGfeJ 
CNU; 

/* 

CN   ENCOUNTERING    TrJK    END    UF    A   PAGC   Or    PRiUT,    PRINT  THE 
HEACfcirt  INruHMATtOM. 

♦/ 

ON  Et-.CPAGt-;  ( SYSPf  INT )  ohgin;  » 

PUT    F  ILL"  (  SYSPP  INT  )    CO  I  T  (  CUI^_!:;  ATE  )  (  P  AGE  .  A  )  ; 
PUT   F  II.F.  (  SYSP1-.  INT  )    '^.D  i.  J  I  >  Qil  .\0S  •  , 

•OUTPUT  DiEscu  IP  r  roN :  ascending  list  of  graduates  •» 

»  AHOSe  RFCOr,i)S  WFRt  PUKGtO','  FSUM  THK  MAIM  FILE  »• 
'ANO  UliSTKOYcD  UNLESS  UTHIHSWISG  I  NO  I C  ATEU  '  )  (  SK  {  P  ,  A  » 
SKIP,  2    A,  COL  (ti),  if  A): 

PUT   F  I  LE{  SYSPP  I  NT)    LO  I  T  {  •  L"RS  OR    MES  S  AGc  •  .  •  S  ,  S  .  NUM3ER  •  , 

'  NAMt*  .  •  ADDPESS  •  .  •   _'t'_   _  * 

,'_  J  (  SK  I  P  (  6)' ,  A  .  CCL<  ;iO  )7a  ,  CUlT'^O  )  ,  A.COLlb^T  ,At 

SKIP(O)  .A,CQL<20)  ,A  ,CUL('>OJ  .A.COLCOS)  .A); 

ENC; 

/* 

REAC    THE   CU^OnENT   DATE   AND    TH'z   GRADUATION   TEST  DATE. 

♦  / 

GET    F(LE(SYSfN)    ED  I T ( CUR_0 A T E . TE ST_D A T E ) ( COL ( 1  )  . A ( 3 ) , 
S<IP,F(2)  ,Xt3)  ,F(  I  )  )  ; 

/* 

PRINT    THE   FEAOER    INFORMATION   FOR    TH=    FIRST   PAGE  OF 
PRINT. 

*/ 

PUT    FILE (SYSPR  INT)    ED  I T < CUR_DATE  )  { PAGE , A )  ; 

PUT    F I LE ( SY SPR  I  NT )    £ D I T  I  • GR A OS •  . 

•OLTPUT  description:  ASCENDING  LIST  OF  GRADUATES  •» 
'AHCSt  RECOf^Cb  WEPE  PURGED','  FROM  THE  MAIN  FILE  't 
•AND  DESTROYED  UNLESS  OTHERv/ISE  I  ND I  C  AT  E  0  '  )  (  S  K  IP  ,  A  , 
SKIP,  2    A,CCL(5),2  A); 

PUT    F  I  LE  (  SYSPR  INT  )    EDIT(«ERROR    M  ES  S  A  GE  •  ,  '  S  .  S  .NUMUER,'  » 

•  N  AM5  •  ,  •  AODRESS*  ,  •_  _;  •,•  '  »  ' 

,  •  •  )  (  SKIP  ;  5  )Va  ,C0L  (?0  1  .  a,  C3L  (4oT,  a,cul  ( a'oJTS. 

SKIP(0),A.COL{20),A,COLt0.0),A,C0U{65)»A>: 

/* 

READ   THE    SOCIAL   SECURITY   NUMtJER;  OF   A   RECORD  TO  HE 
PURGED    FROM    THE    MAIN  FILE. 

■X/ 

next:         GET    FILEtSYSlNJ    EDIT(S3    NO )  ( S K £ P  ,  A i 9 ) ) ; 
/  *  ~ 

read  a  record  form  the  main  file* 

loop:      read  file(olO)   intocpessonau »  ; 
check: 

/* 

IF    THE    RECORD    TO    BE    PURJGED   HAS   NOT   YET    BEEN   FOUND    IN  THE 
MAIN    FILE.    COPY    THE    CURRENT    RECORD    ONTO   THE   NEW  MAIN 
F  n.E  . 

*/ 

if  personal . soc_sec  no  <  ss_no  then  oo; 
write  file(new)  fro m ( per sunal j ; 
go  to  loop ; • 
end; 

/* 

IF    ThE    RECORD   TO    BE   PURGED   DOES    NOT   EXIST    IN   THE  MAIN 
FILE,    PiUNT    THE    SOCIAL    SECURITY    NUM3ER    .VlT!)   THE  MESSAGE 
•MISStNG.'       READ    THE    SOCIAL    SECURITY    NUMf3ER   OF    THE  NEXT 
RECORD    TO   OE  PURGED. 

*/ 

IF   PiiPSONAL  *SOC_SEC    NO   >    SS    NO    THEN  DO; 
Wf;  I  rE    PILECNEw)    FRC  MdPEilSONAL  )  ; 
PUT    F  I  LE(  SYSPIV  I  NT  )    CU  I  T  {  •  M  I  S  S I  NG  •  ,  SS  NO) 

(  5  K  I  P  .  A  ,  X  <  I     )  ,  A  J  ;  ~ 
GET    FILE(SYSIN)    ECITiSS   NO ) ( SK IP . A ( P ) ) ; 

GO  TO  check;  ~ 
end; 

/* 

THE    RECORD   TO    OE   PURGED    HAS   OEEN   FOUND.      CHFCK  THE 
GRAUUAriCN   DATE    TO    VERIFY    THAT    THE    RECORD    SHOULD  UE 
PURGED    AT    THIS    TIME.       !F    THERir   IS    AN    UjCON  3 1  ST  FN  C  r  IN 
OATLS,    PRINT    rHn    SOCIAL    SECURITY    NUMHER    ;/ I  TH    THE  MESSAGE 
•lUCCRRL'Cr    DATE'    ANU   OiJTAIN    A    NEW   RECORD.  OTHERWISE, 
PRINT    THE    SOCIAL    SECURITY    NUMUER  .    NAME    AND  PERMANENT 
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Aoouess  i^nuM  this  rgcorc.    assign  to  graduate  splfctfo 

DATA    ;-^;0M  t>i:RSaNAL    AMJ    COI'Y    OiJADUATU   ONTO    THE   Dl  t  ETH  " 
It-    PFRSONAL  .F.XP_(,RAn_DAT;:.YR  TEST    OATE.YR  & 

PC(;r;aNAL.EXP_GRAo  ..oATh:.i;rR        jest  date.qtr  thfm  do:' 

WrJtTE    F!UC(Ntiv)    .'-hO.-1(  PE.'iSONAI  )  ; 
PUT    F  tLE(  SYSPRINT  )    EO  !  P  (  •  I  N  CO/i  Ft  EOT  DATF«, 
PEPSG.NAU  .SOC_SEC_NO  )  (  OK'  I  P  .  A ,  X  (  5  )  ,  A  )  : 

GO  TO  next; 

ENO  ; 

GrjACUATC    =    PERSCNAL,    OY  MAMF: 

PUT    FILE!  SYSPtUNT)    E  0  IT  {  Gr<  ADU  AT  E  .  SOC    •JEC  NO, 

SUrJSTR  (GRADUATE.  L  AiT  .  1  ,  I  NOEX  (  G  RA  L)  J  A  f  E  •  C  AST  ,  •     <  )  -  I  )     1  I 

II    GRADUATE..-  IP.ST  .GRADUATE. PE-iM    ADOR  )  (  COL  {  20  J  ,  A  , 
X(y)  .A,COL(  65)  .4  (A.X(^))): 

'ARtTE   F  ILr.  (  DELETE)    F  ROM  (  GHAOU  AT  El  I 

GJ  TO  next; 
finish:  end; 
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A  LI  CT 


pr. ncuouRK  OPT  !CMS  ( MM  N> ; 


rufJGKAM : 

ALGOR I THM : 


LOCAL 


ALPHAl3Er  ICAL 
AOURESSfCS  13Y 


•LIST  CP  TEAM 
SEMINAR.  t 


MEMUGM'S 


algorithm:  PHAO    the    irUTlAL    OATA.      PROCtS:;    THE  MAIN 

FILC    •rr    STORING    IN    THE    STRUCTURE  KOSTEH 

'       TMF  nam::  and  local  address  ok  stjdents  in 

THE    SEMINARS    BEING   PROCESSED.  ON 
ENCOUNTERING   THE    END   OI-'    THE    MAIN  t-ILG 
SORT    THE    STRUCTURE    ROSTER    ALPHA b c T I CALL Y 
or    THE    NAMES.       ELIMINATE    EXCESS  [BLANKS 
FROM    THE    NAMES    IN    THE    STRUCTURE  ROSTEj*. 
PRINT    rut    ADDRESS   LISTS    HY  SEMINAR. 


NOTE 


THE    FCLLGWING    DECLARE    STATEMENT <S) 
INCLUOED    IN   THE    i-■,^aGRAM   NAMED   ALL    MOST  BE 
ADDED    TO    THIS    PROGRAM    PRIOR    TO  EXECUTION: 
1.       The    STATEMENT    LAOELEO   ONE  WHICH 
CONTAINS    THE    STRUCTURE  PERSONAL. 

*/ 

/* 


READ    THE   RANGE    OF    THE    TEAf.'    Nl'MOERG.       THIS   RANG5  IS 
USED    TO    DYNAMICALLY    CONTROL    THE    STORAGE    ALLOCATED  TO 
ROSTER.    'FACULTY   NO    AND  VALUE. 


get  file<sysin)  ed  i  t  {  m i  n  ,  m  a  <  )  ( col  (  1  )  ,  2  (  f  (  i  )  ,  x  (  4  )  )  i)  ; 

uegin; 

DECLARE 
/* 

INCICATOR    OF    -^HE    PRINT    STATUS   FOR    THIS    TEAM.  *✓ 

BITIMINIMAXJ    13IT<  1  )  , 

/« 

DICTIONARY   OF    FACULTY    MuMOEK'S    NAMES   ASSOCIATED  WITH 
Tl^E    CODE  3   RECORDED    !N    PERSONAL.  */ 
FACULTY  ( ;?0  .1    CHArjACTERl  lA  )    INlT  I  AL  (  'DERNARD",  'CURRAN"  * 

•DE'UR-:£  '  ,  'FE  Y'  .  '  GCOOMAN'  ,  •  HI  LI.  I  ARD'  ,  •  JESTER*  . 

'K  I  NZER.  •  ,  •  LE:V  I  S  •  ,  ■  U  I  TCHER'  .  ■  MAR  T  I  NELLO  '  .  'NEWCOMD*  i 

»  OLSCN '  , ■ PENLAND'  , ' RO«E'  •  =  SERAPH  INE • .  • SHEA ' ,  'SM  XTH*  . 

• T I  SO  N  ■  ,  •  W  X  L  MO  T  '  )  . 

FACULTY    NUME'ERS   OF    THE    SEMINAR    LEADERS    BY   TEAM.  */ 

FACULTY_N0(MIN:MAX,^)    fixed  BINARYi 

/* 

NAME   AND   LOCAL   ADDRESS   OF   STUDENTS    IN  EACH  TEAM  OY 
SEMINAR.  */ 
1    ROSTER ( MIN :MAX , 4 , J6 ) , 
2   NAME    CHARACTE.'<(2;j)  . 
2    ADDRESS  I 

3    STREET    CHARACTERCaO) . 
3   CITY    tHARACTERI  iiO)  ,. 
2    FHCNE  CHARACTER!/'). 

/  + 

COUNTER  FOR    THE   NUMBER   OF'  STUDENTS    IN   E/CH  SEMINAR  8Y 

TEAM.  ♦/ 

VALUE  (  M  N  :MAX  ,4  )    J-IXEO  aiNAR.Y. 

CUR    DATE    CHARACTER ( a)  . 

GLO~FiLE    RECORD  SEQUENTIAL. 

SEMINARrV    FIXED  BINARY. 

SVR    CHARACTER ( 25) . 

TEAM*    FIXED  BINARY. 

i  TEMP, 

y.    NAME    CHARACTER  (25  )  . 

2  ADDRESS, 

J    STREET    CHAR ACTER{20)  , 
A    CITY    CHARaC  TEP  (  20 

2    PHONE    CHAR ACTER( / ) ; 

INlTIALItE   VALUE,    ROSTER   AND  FACULTY  NUMo'tR. 

*/ 

VALUE  ^  o; 

ROSTER    -    •  0«  ii 
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FAOiii.rY_N&  o; 
/* 


ON   ENCC.iJNTERlHO  A'^i    ILLEGAL    SU'i  r.C    I PT    IN   A  GTUOfTNT'S 
ntCUriO,    PHI  NT    tli;,    3(.K.tAL    Si'.C'jr-.  11  r   NUMtJER,    TtiAM  NUMUEUt 
StMINAR    MiMUei^   ANO    ;  HI:    TOTAL    NUMBIil?    UK    STUOCMrS     IN  THIS 
ShMlNAP. 

*/ 

CN    5L0SCH  •  P  nv  ANiiQ  Qf■G^^4*, 

PUT    F  ILh  (  SYSH;  IN  D    hO  1T(  •3t.'USCf?IPr    OUTStOti  LEGAL'., 

•    bOUNDS'  ,  •  SaC_  S.'IC  _i!0   -    •  ,SOC    Sf:C_NO,  •  T1£AM    =  '.TEAM, 
•SEHINAS    -    »  .  Stif-' I  NA  !^  ,  ■  VALUti    -    •  t  V  A  LUE  (  TE  AM  ,  SEM  I N  AfJ  )  ) 
12    A,SK  IP<  J  j  ,A,  A.X  I 'J  )  ,  J    {A.K  (;j  )  ,  X{  S)  )  )  ; 
GO    TfJ  FIiJISH; 

cNo; 

/* 

ON   ENCOU.MTE!?  ING   THE   END   OF   THE   MAIN  FILE   TRANSFER  TO 
THE   LAUfii.  SOflT. 

*/ 

uN  e.\cf:le«glo)  go  to  soi^t; 

OPEN  FiLE(5rspr!iNT>  L I N  E  s  I  <:e  {  I  JO  J ; 

/* 

REAC   THE   Cur^tRENT  DATE. 

*/ 

GET    FILE(SYSIN)    EOIT(CUn    OA TE )  ( C OL ( 1  )  . A ( 8 ) ) ; 
/' 

READ   THE   NUMBER    OF    TEAMS    TO   OE   PROCESSED.      THEN   FOR  EACH 
TEAM    REAC    THE    TEAM    NUMIU' .'^  ,    THE    NUMI3ER   OF    SEMINARS    TO  6E 
PKOCeSSbO.    AND    THE    SEMINAR    NUMBER    A^D   FACULTY  NUMBER 
OF    EACH    SEMINAR    TO    BE  PROCESSED. 

GET  FILE(SYSIN)  ED t T ( NO_C ARDS ) ( C CL ( 1) . F ( ? ) ) ;  *^ 
DO    I    =    1    TO  NO_CARDS; 

GET    FILElSVSIN)    EOIT(  TEAM*, LIM  IT, (  SEMINAR.*, FACULTY  N0{ 

TEAMV.Sl MINAR*)    DO    J    =    I    TO   LI M 1 T ) ) ( COL ( I ) . ^  (F{f), 

X(^)>,4    <F(1 J ,XC4).F(2),X(3) )) ; 

END  : 


Fr,aCESS    THE    FILE    SEQUENTIALLY.      READ   A    STUDENT'S  RECORD. 
If-     fHt:    ^lECORO    IS    NOT    TO    OE    PRINTED.    TRANSFER    TO   LOOP  TO 
GET    A    NErt    RECORD.       INCREMENT    TilE    CORRECT    COUNTER  IN 
VALUE    HY   ONE.       STORE   THE    STUDENT'S    NAME,    LAST    AND  FIRST 
NA.vES    ONLY,    AND   LOCAL   ADDKE5S    IN    THE    CORRECT  PCSIT'ION 
IN    THE    STRUCTURE  ROSTER. 

lccp:      read  FiLE(oi.o)   intocpersonal);  *^ 

IF    TEA.v.    <    MiN    I    TEAM   >    MAX    THEN    GO    TO  LOOP; 
IF    FACULTY_NO{ TEAM  , SEMI NAR)    =    0    THEN    GO   TO  LOOP; 
V 'VLUE  riEAM  .3EM  IN  AR  )    --   V  ALU  E  C  T  E  AM  ,  SEM  I N  AR  )  i; 
ROSTs*<  .NAMr.(  rt  AM  ,  SEM  INAR  ,  VALUE  (  TEAM  .SEMINAR  J  )  = 

PixPSONAL. NAME. LAST    ||  ||    P  E'^  SO  NAL  .  N  AME  .F  I  RST  ; 

ROS  r  t^R,  ACDRESS  .  S  TR  E  E  T  (  T  E  A    .  SE  M  IN  AR  ,  V  ALUE  (  T  E  AM ,  SE  M  I  N  AR  )  1 

-    P:-RSr,NAL.LOCAL_AUDR: .  STREET  ; 
RCS  TER  .  AUORESS  .C  I  TY  (  TEAM  .  SEM  IN  AH  ,  V  AL  UF  <  rp  A  M  ,  ,SE  M  I  NAR  J  } 

~  PERSONAL .local_addr  .city; 

RCS  TEk  .PHCNr:(  TEAM,  SEM  ?NAR,  VALUE  (  TEAM  ,5  EM  IN  AR  )  )  = 

PERSONAL . logal_phone; 

GO    TC  LOCP; 


SORT  THE  SEMINARS  IN  THE  STRUCTURE  ROSTER  ALPHAUHT ICALLY 
BY  NAME. 

sort:         00    TEAM*         MIN    TO    MA/.:  *^ 
UIT(T,:aMa<J    =    FACULTY    NOITEAM.*,!)    =    0  C 

FACULTY_NO(  TEAM,'/,;jT    =    0    &   FACULTY   N0(TEAM*,J1    =    0  & 

F ACUL T Y_NO ( TEAM« .41  =0; 
IF    BIT(TEAM»)    -    'I'n    THEN   GO    TO    T  END: 
DO    SEMINAR*    "    I     TO  4; 

nn    •r^'^^V-r^-^'^^?'  ■^'■-^'■''^'•Sf^MINAK^O    =    0    THEN   GO    TO    3  ENO; 

uu   1=1   TO  J4 ;  — 

Dt)    J    ^    I  *■  I    TO  J'j', 

IF    ROS fER .NAME( TEAM* , SEH INAR «. I )  > 

ROSTER  .  N  a;.;e(  r  i.-am^  .  sem  inar  v  .  j  )  then  DO  : 

TEMP    -    i-!OSTET  (  TEAV?  .SEM.  NAR#  ,  I  )  ; 
ROSTEKI  TEAM.-/. SEMINAR./.  I)         R  OS  TE  R  (  TE  AM  ,<  . 
SE  M  I  N  \ti  /»  ,  J  X  i 

ROS fER ( TEAMV , SEf I NAR«. J)    =  TEMP; 

t  N'  D  • 

END  : 
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1-;L  IM  I  NATE 
IN  NAMG 


end; 

5    CNO:  L-NO; 

V  ENO:  end; 
/* 

P.5QCE:"SS   THe    NAMe":5    IN   THE    ST'^UCT!.."nt;   ROSTER.      CHANGE  ALU 
DUMMY    NAM'JS.    NAMES    WHICH   HAIi    HEliN    INITIALISED    TO    "O*  FOR 
Sf)RTING    AND    MAVf:    N:)T    BtCtN   CHANGCO,    TLl  (BLANK. 
tXCtSS    BLANKS    BcTwflHN    fhC    GTUDliNT'S   LAST  NAME 
AND    THE    ',•     IN   THd    REMAINDCR   Gh'  NAME. 

*/ 

blank:       OO    TEAM*    -    MIN   TO  MAX; 

DC    SEMIMARrf    -    I    TO  M 
DO   NUM    -    I    TO  36; 

IF    .'FOSTER  .  NAM  H  {  TEAM<r ,  SEM  INAR*  ,  NUM)    -  'O* 
THEN   RC3 TES ( TGAN J  ,SEM  INAK*  ,NUM )    ~    •  •; 

ELSE  do; 

STR    -    SUR;3TR(  ROSTER. NAME(TEAM*, SEMINAR#,NU^i)  , 
I  .  INDEX  (  ROSTER.  NAME  (  TEAM*  ,  5C  M  I  N  AR    ,  NUM  >  ,  •     »  J 
-    1)     II     sun  STR(  ROSTER.  NAME  (  T  EAM.»  ,SEM  IMAR  «  , 
NUM)  ,  I  NOEX  t  R  GST  EH  .NAME  (  TEAM/».  SEM  INARrf.NUM)  • 

•,')): 

roster .name( team«. semi nar»  .num)  -  str; 
end; 
END  blank; 

/* 

PRINT  AN   ADDRESS  LIST  nOR  EACH   SEMINAR.   PRINT  ONE 

SEMINA:^   PER  PAGE. 


00    TEAM/K   -    MIN   TO  MAX; 

IF  aiTi'TEAMtf)  =  "I'O  THEN  GO  TO  OUTER; 
DO    SEMINAR  A"    -    1  TO 

IF    FACULTY  .NOl  TEAM*  .SEM  INAR/»  ) 
/* 


0   THEN  GO  TO  INNER; 


PRINT    T!-!£    HEADER    INFORMATICN  FOR    EACH   PAGE   OF  PRINT. 

»/ 

PUT    FILEISVSPRINTJ    ED  I T ( CUR_OATE > { PAGE . A ) ; 

PUT   F !LE( SYSPR I  NT )    E O I T (  '  LOC AL •  , 

•OUTPUT    OESC?  IP  T  I  CN  :    At.  PH  A  3c  T  !  CAL   LIST   OF  TEAM 
•MEMBERS    ADDRESSES   BY    SEM I NAR '  ,  • TE AM ' , TEAM a )  i SK IP , 
A, SKIP, 2   A,5KIP,A,X12J  ,F12)); 

PUT  SKlP(lOi: 

/* 


PRINT    THE    SEMINAR   LEADER'S  NAME. 


PUT    >--ILE(SY3PniNrj  EDI.T(FACULTY(FACULTY_NO{TEAM«, 

SEM  INAR»  )  )  ,  •  •  )  (X(  10)  ,  A.SK  IP(  i!)  ,X{  10) 

» A )  ; 

/*  . 


inner: 

OUTER  : 
F IN ish: 


PRINT    IN    ALPHAfSET  IGAL   ORDER    BY    LAST   NAME   THE  NAME 
AND    LOCAL    ADDRESS    OF    SEMINAR    MEMBERS    IN   COLUMNS  OF 

Twelve  students  PErt  column* 


DQ  nlm  -  I  TO 

PUT    f"  ILE<SrGPi<!NT>    SKIP  (2); 

P'Jl    F  ILr:  (  SYSPR  INT  )    ED  I  T  (  (  R  OS  TE  R  .  NAME  (  T  E  AM#  , 
SEM  INAR;-;  ,  I  >    CO    I    =    NUM    t f j   35    BY  12), 
(  r;OSTER.  ADDRESS  .STREET  {TEAM*  .SEM  iNAR  rf.  I  )    OO    I  = 
NUM    TO    J6    BY    1  2  J  .  (  R  C  S  T  E  .-^  .  ADD  RE  SS  .  C  I  T  Y  (  T  E  AM^  , 
SEMlNARrf.l)    DO    I    =    NUM    TO   J5    BY  12). 
(ROSTER. PHONE(  TEAM*  .SEMINAR.*  ,  I  ) 
BY  12)) 

(COL< 10 ) ,A , CCL{ 50) , A.COL (9  0) , A) 
END  ; 
ENU; 

end; 
END  ; 
END  ; 


*/ 


DO    I    ^   NUM    TO  ,36 
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print:    HROctDUH!:  0PrtCN3(MAiM)  ; 
/* 

pijcgpam:  print 

OUTPUT 

uaaciUPriGN:      lilsting  cf  spr:cif-ic  data  on  ctRTAiN 

STUDLNTS    Ai    RtCUhSTtU    brVACULTY    McMOeRS  . 

ALGC-JITHV:  KiiAO    Tiiii    INITIAL    CATA.      OuTAIN    A  f=ACUUTY 

KtOUi::.  Ti       IF    TUt    riLQUtST    TYPC    15  cJUAL 
TO   l)NL,    PkINT    THi   rtCOUCSThD  INFCxMATION 
UN    ALL   .-lEMLJtZKS    Oi-    T  Ht:    SPLCIf-'IfcD  SEMINAR. 
GTH:.,3a  !  SE  ,    PhINT    THt  HdCOdSTcC 
I  NF(:--;y  AT  ICN   UN    THE    SOCIAL    SECU-i  I  TY 

Nu.-i.jcr?t;  ri:L._iJ^nN;j  rue  r^EjuiisT  until  an 

rtHICH    IN3ICATE5    THl    hND    CK  THIS 
rVZ.lUr.ST  ,     IS   r^iHAO.      CJtJTINJt    TO  Pi'^OCESS 
TM'i    t^irlMAliMNG    T-fiCULSTS    IN    The   SAME  MANNE.l. 

»*  *^:^frt  ♦.■«;-Jt4:»:1<  J-*l[  +  Tn|t*at¥i-.Ti*:»i^c«  *  ^  Ax* +  . Iijn:^ 

NOTe  THE    FGLLUivING    Gl-:CLAR£  STAThMENTO) 

INCLUlJUD  IN  THf:  PROG'^AM  NAMEO  ALL  MUST  Qc 
A'JDlIU    TO    THIS    f^r.CGi-iAM   PRICS    TO  cAeCUTION: 

1.  THE    STATEMENT    LABfclLED   CNE  *HICM 
CCNTAiN'i    Tl-i!"    STr-".OCTUAE  PEkS'JNAL. 

2.  THE    STATEMENT    LAcJir.LED    TWO  WHICH 
CONTAINS    THE  DICTIONARIES. 

x-e  *  IP*     5  >,+  4  -4  +i        Jk%  .-(tite  ■*  -f.a  *  i(c-p  j»  *  >t  -i 

*/ 

DECLARE 
/* 

AN   ENTRY    POINT.    FOR    INSTANCE    ENTRY ( I ) .    INDICATES  THE 
NOCHh"^    CF    ThiE   POSITION    PRECEEDING    THt    t»tGINNING  OF 
THIS    SiJi35  r  ANT  I VE    A-^EA    IN   LEARNING_A.  */ 
ENT^Y(l^)    FIX-U    JINAR./    i  N I  f  I  AL  (0  .  b  ,  I '3  ,  J  I  ,  4  1  ,  50  .  56  .  o6  . 
£  c;  .  c  7  .  9  b  .  9  y  , 

/» 

DICTICNA.VY    rjF    THE    FACULTY    MEMBER'S    NAMES  ASSOClATEO 

sW  TH    ThE    CODES    r.ECJ'OEiJ    IN   PEi^.SONAL.  */ 

FAC'JLT  y  CiJo)     CHA.<  ACT':-:^(  m  )     IN  I  T  I  AL<  '  HERNARD  •  .  'CURl^AN  •  , 

•  :.iE  TUkE  •  ,  •  FEY  •  ,  •  GC'.-C  N'AN  '  ,  '  HI  L  L  1  ARD»  .  •  JESTER  •  • 

■  is  I  N<?ER  '  ,  •  Lc  .V  I  b  •  .  '  t.  I  TLHE  R*  .  •  MART  I  NEl.LO  '  .  'NEWCOM  J  •  . 

•  OLSoN  •  ,  •  PtNLAi^O  •  .  •  fiOrtE  •  ,  •  S'iRAPH  INE'  •  '  SHEA  •  ,  'SM  I  TH  •  , 

•  T  J  ^,C^J  <  ,  >  IV  I  LMO  T  •  .  ■  KRA_L  '  .  '  C'<EEDGN«  i  •  LEV  I  NL  *  i 

•  h  ■•  JGE  3  •  ,  '  GR  i       •  ,  '  OCRM  AN  •  J  . 

/  f 

Fi-AG    i-.hEN    GET    TO    A    •  I  "  !3    IN;)ICATES    THAT   AN   ENO    OF  FILE 
HAS    dEEN    t:NCOUNTEP.E,J    ON    AN    INPUT    DEVICE.  */ 
FuAG    aiTIi;     IN  I  T  I  AL  (  »  C  •  i3)  . 
/* 

CCNTAINS    INFOI--MAT  IJN    WHICH    INDICATES    THE   PRINT  STATUS 
ANi;    i-iGLNDS   OF   EXECUTICN  FOR    EACH   REQUEST.  */ 
1    RE>JGH5T  (  a  )  , 

i    CJOE    FIXED  BINARY, 

^  I  Nux I 

J  N'JMl  F  IXED  EI  NARY, 
J    NLM.i    FIXED  BINARY, 

cui;_i;ate  Ctiaracter  ( a )  , 

FACG-..TY4    FIXED  dINARY, 

CLD   FILE    RECORD  SECUENTIAL, 

SS_NC  Ct^AR/CTER(9), 

SPACfi   FIXED  linary; 
OPEN   F ILE ( S YSPRINT J    L  IN E S  I  2C (  1  JO ) : 
/» 

CN  ENCCUNTERING  AN  ENO  CF  FILE  ON  OLD,  RE.VINO  THE  TAPE. 
IF  FLA(.  IS  SET  TO  A  '  I  >■  C  ,  REAC  THE  NEXT  SOCIAL  SECURITY 
NUM>3:^F  .       IF    SS_NO    IS    A  J  RESET    FLAG    TO    A    •  0  •  U  AND 

CijrWN    A   NEW   RFUU'-.Sr.       CTFiERvMSE,    CONTINUE  PROCESSING 
THE    SOCIAL    SECURITY  KUMUERS. 

*/ 

CN    ENC'"  ILE(GLD)  OEGIN; 
ClCSE   F I LE ( OLD ) ; 
CP  EN   i"  ILE  (OLUJ  ; 
IF    Flag    --    «l'tj    THEN  DC: 

GET   r-!LE(SYSIN)     E  D I  T.(  3S_  KC  )  (  C  LL  (1  )  ,  A  (  9  J  )  ; 

IF  ts_N(j  -  '■>>    r!-,i-.N  oo; 

FLAG    -    •  Q  '  11  ; 
GJ    TO  NEXT; 
END  : 
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e;LSt£    G.I    TO  L00;3; 

tNo ; 

/ » 


Ofs   L"NC0UNT'£1?  ING    A    'j  t  ti  SC  H  U>  f  t?  ANGti   flR'^OR.    PIUNi"    AN  tUROR 
Mr..Si,A(j'-:    ANO    TFt  ANSt-iii-i    flJ    PRUC^.hS    VHfi    N£XT    WcICQAO  l-U!* 
THIi>  liblOOii'jf. 

*/• 

CN    5UI;3Ci'!  IP>1  ?<ANOF.  BE'JIN; 

Pur   H  ILE  {  S  Y^;P!' INT  )    l-.O  1  T  (  SOC_Si:C   NO  ,  •  SUbSCi^  IPT  OUTSIOK' 

.'    LCuAU   fiOU.-JlJS'  )  (A  ,Cf;i.(  J2)  ./?~A)  ; 
If    .-<EO(j£  i  f„TYPe  . '  I    rt-lIN    OQ    TO  GIIOUPS; 

clS!^  go  rij  siMGi.fi; 

/ « 

ON    r:NCnUNT[iRIfjG   THJ^    J  Mi    G(-    THE    •^liOUBSTS    TRANSFOl  TO 
FIN!  Sil. 

*/ 

CN    c  NCF  I  LL"  C  SV5  I  N)    GC    TO  FINtSHJ 
/* 

CN   ilNCCUNTcR  I NG   AN   END    CF    A   PAGc,    PRINT   THE  hEAOES 
INf^CFMATIGN. 

*/ 

CN    iZNCPAGE!  (SYSPfi  INT  )  OE-^IN; 

PUT    F ILd ( SYSFK  INT  )    t a  1  T ( COR _ C A T E  )  ( P A GE . A  )  ; 

PUT    H  ILt  (  3YSPP  INT  )  I  T  (  •  P  ;■!  I  NT  »  ,  •  U  O  P  PO  T    DtSC;^  I  P  T  I  ON  :  • 

.'l.I£TInG    Or    SPtCIhIC    CATA    ON  CiKTAIN    STUDENTS    AS  •» 
•i5EOOE3T  =  0    bY    FACULTY    M  E  M  dEj\  S  '  ,  ■  i^EOO  C  S  T   f-OH  «, 
FACOl.1  Y<FAC0_TY,4  )  )  (  SKIP,  A.SKIP.J    A, SKIP, 2  A); 

POT    F  ILE  (  SYSPP.  INT  )    El)IT(*S.S.    NUMtat.-i    AND    NAME  '  ,  •  1  TEM  •  • 

'  C  C N T c^N  7  S  '  ,  •  •  ,  •  t  ,  I  »  J 

(5<IP(6).2    (COL(l<,A,X(l^),A,X(ll) , A , SK I P( oT jTV 

PUr    r ILE( SYSPK  INT  )  SKIP(2): 

end; 

/  * 

HE'\0    TH:-:   CUr<;<ENT  DATE. 

*/ 

GET    FiLE(£YSIN)    El;  I  T  (  CU  h_C  A  T  E  )  (  C  01.  (  1  >  ,  A  (  3  )  )  ; 
/  « 


,^EAO    Thic    INITIAL   DATA   HOP    THE    NEXT    FACULTY  RE'JUESTi 

next:         ciT    FILEISYSINJ    EO I T ( F A C U L T Y V . S t GO ES r_T YP E , TE A M « , 
ScMInAkj)  (COL  (  I  )  .F  (2)  ,3    (F(  n  .XCiJ  )  )  ; 

GET    FIL^(5Y3(N)    £0  I  T  (  RE  G  U  E  ST  J    COL  (  1)  ,  5    I  F  (  1  )  ,  X  {  «■  )  ,  P  (F 

(.  ^'  J .  X  ( J  J ) )  > : 

ncO_CCUAS£    GSAOE    =    '  '; 
/  f  ~ 

IF    The    KEGUEST    TYPE    IS    ONE.    PROCESSING    IS    TC   i3c  DONE 
t3Y  SEMINAi^S. 

IF  .■^egue;t_type  -  1   ruEN  oo; 


iJEAD    A    ixECuf^D   FKOM    THE    MAIN  FILE. 

^  / 

Gi^OLPS:         iitAO    FILIi{OLU)    I  N  T(H  P  E  RSO  N  AL  )  ; 

IF    PESSCNAL.TEAM    =    TEAM,*    (,   PER  SO  N  A  u. .  SE  M  I  NAR    =  SFMINAK,* 
IhEN   00 ; 
/* 

PRINT    THE   HEADER    I  NFC  f!  MAT  I  ON  . 

PUT    FiLHfSYSP.UNT)    E  fM  T  (  CUP._  C  A  TE  )  (  P  A  GE  .  A  )  I  *^ 
t-UT    F  iLc  (SY.;pK  I  NT  >    E  C  I  T  (  >  p.  <  1  NT  •  ,  •  OUT  PU  T    OF.  SC  !U  P  T  I  ON  • 
.':    LISTING    OF    SPECIFIC    DATA   UN    Cu.^TAIN   SruuENTS  • 
,'AS    PEUUCSTEO   UY    FACULTY    f-'E  MdE  .i  S  •  .  "^t  GU  t  S  f  FOK 
FACULTY(FACU_TY-t<)  )(  SKI  P.A.  SKIP  ,J    A,  SKIP,  2  A); 
PUT   F  III  (  SY'JP,.  1  NT)    Eorri'S.S.    NUMUE«    ANO  NA.vlE«. 
•  I  TEM  •  ,  '  CCNTLNTS*  ,   _    ^  i.f 

skIpToTTT-  ' '  •^'■('-"LTrT,  A.xv  12) ,  A.xdiyTA, 


P.'^INT    THE    STUDFNT'S    SOCIAL   SECURITY   NUMOCD    AIIO  NAME 

« 

PUT    FILE  (  SYSPW  INT)    E  O  I  T  {  SOi:_Si:;  C_NO  ,  5U1)  S  TR  (  *' 
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PCftS.'JNAL  .LAS  r  .  I  .  1  r)Di-.X(  HLRSON  AL  .LAST  .  •  |l 
I  I    HtiMSUNAU.f-  )  C  SK  1  H{  J>  .A  ,r.OL(b)  ,A)  ; 

SPAcc  ~  o; 
/♦ 

CHECK  iZACM  (  L'lutrTr  cool.     ir  tiic  cook  is  not  equal 

TU    ^t.r(U,    CAUL    I  ht:   COP.nbCT    PRINT    UJURUUTINL    .IITH  THK 
CU^riECT    A«(,UMf- rjT  S  .  > 

*/ 

If  i^-iiju:£3T .C0'jf£ (  1 )   -1^  0  rutN  CALL  sua  i: 

11=    PECUiiST  .  CUDK  (  ^  i  0    ThliM  CALL   SOH~ ^  (  R2 QUfiS T  .  COOE 

<  ^  )  ..'^LUUhST  .rJUMl  (     )  >  ; 
IF         JL^£:i  r  .CUJ[-:  (  0    THi;N   CALL    SU  li_3  ( C  UU  1:3  T  .  CCDE 

( J )  .  n:-;uLST  .: jum i  t  J)  ,HCout-:;>T . tjum^; (  j } )  : 

If-    KLiJ>J,-:ST .  COU--;  ( '4)     -.=    0    nihn   Cali.    5UH_4(FitQUcST  .CUUK 

(     )  .-iK'jiJL  ST  .  I  JiJ.'l  1  (     )  ,  RtOUhlST.  NUM^  (  4  i  )  ; 
IF    f.LCU:;ST  .COJi:  (  5  )    ->  -    0    THEN   CAL.-    SUiJ    5  (  RE-JU  tS  T  .  COOE 

(  !3)  .HcO'jLiiT.NiJ.vi  (  ?3)  )  ; 
IF    Tlli'JiJKST  .COJE  (  6  )  0    THEN   CALL    S0t3_  6  (  REQUEST  .  C  COE 

_  (  !i)  ,  ••JEUUrST  .Nl>Ml  (-;)); 
l;-    -iLIJUllST  .CUOE '.  7)  0    THEN   CALL   SUd    7  { ^  EQU  EST  .C  CDE 

(  7)  ,. -REQUEST  .NJWl  (  7)  )  ; 
IF    REQUEST  .  CODi^  C  fj)    -•  =    0    THEN   CALL    SUU  8; 
ENO; 
GC    TC  GfJOUPS: 
ENO  ; 


IF    THE   kEUUEST    TYPE    IS    ZESO,    PROCESSING    IS   TO  UE  DONE 
til     INDIVIDUAL    SOCIAL    SECURITY  NUMtiERS. 

*/ 

ELSE  oo; 
F^AG    -    •  I  •  13; 

Re  AO    THE    SOCIAL   SECUfilTY   NUMBER   UF    THE   NEXT   RECORD  TO 
6E  PRINTEO. 

GET  FILEISYSIN)  E 0  I T ( S 3_N0 )( CO L (  I ), A { 9 )) ;  *^ 
/* 

IF    THE    SJCIAL    SECUr^ITY    .\U,VQ£.^    IS    AN    •*•,  WHICH 

INr:iCATcS    Tht    END    QF    A    GRGiiP    ^^EQUESTt    RENINS    THE  T4p£ 
ANL/    Tf'MNSFEK    TO   RKAD    THE    NEXT  ?<cOUEST. 

IF    5S_Ntj    =    'V    THEN   DC;  *^ 
CLUSt    F  ILE ( ULO  )  ; 
CPEN   FI  ..EI  CLD)  ; 

GO  TO  next; 

ENO; 

/  < 

PhINT    THE    HEACER     I NF  G ),  M  A  T  I  ON  . 

♦/ 

P'-T    FU  t-.  (  SYSP;;  INT  )    Eu)  I  r  tCU^_DA  TE  )(  PAoE,  A)  ; 

PUT   FILE!  SYSH  <  IN  T>    E  D  1  T  (  •  P 1  N  T  •  ,  •  OU  TPU  T    DESCRIPTION:  « 
.•LISTING    Lf-    SPECIFIC    CATa    JN    Ctr.TAIN    STUDENTS   AS  •, 
•REf^UcifED    tiY    FACULTY    ME  M  EE  ;^  S  '  ,  '  RE  OUC  S  I    FOi?  », 
FACULTrCFACLLTY  J)  )  C  S.<IP,A,SKIP.J    A, SKIP, ^  A); 

PLT    F  ILL  <  SYSP.^  IN  f  )    ED  I  T  (  '  S  .  S  .    NUML'EK    ANU    N A  VE  •  .  •  I  TF M •  . 
'  CCNTEnTS  •  ,  •  .  ■__   1,1  "  ,, 

(SKiP(6;  ,2  <CUL(1 J ,A,x( li) ,A,xTi I) . aTsk iPi oT77T  


READ  A  RECORD  FROM  THE  ^AIN  FILE. 
PcAC   FILE(CLC)    I  NT C ( P ERSON AL i ; 


IF  THE  RcCUKD  TO  HE  PRINTED  HAS  NOT  YET  tJEKN  FOUND  IN 
THE    MAIN    FILE,    OJTAIN    A    NEW    RECOTO.  f-UUNU  IN 

<    SS_NO    THEN    GO    TO  LOOP; 


/-M  -'^'■•ur'rM?^*V  '^""^   ''^T    EXIST    IN    THE  MAIN 

l-ILc,    PKlrJT    THE    SOCIAL    SECU-ilTY    NjMHE'-i    WITH  THE 
v!',^^^^'^-    •■■■IISSING.  •      ;^EAI)    THE    NEXT    SOCIAL  SECU'MTY 
NUVJi:,^.       IF     IT    IS    AN  Rfi;,[NO    THE    TAPE    tU  UUTAIN 

A    Nb'A    Rc  QUEST. 

IF   PE;<SCNAL.SCC,SKC  .NO   >    S3_NU    THEN  00: 

r-UT   FIl.r-.(SYoPKlNI  )    I  DIT(SS_NC,  •  "MISSING'  )(SKIP(4), 

A ,  X  ( ,:.  '  i)  ,  A  > ; 
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CiT   >-XLe.(  SV.WiO    LtOJTtbS   NO )  (  'iK  I  P  ,  A  (  0  )  ) ; 

CLiI  jK  I- M.t.  ( ill.r; )  ; 
UPi-f.!  r  I  i.L  (Oi.D  J  ; 
GO  T'J  N!xr; 
i-:m.': 

/I- 

!'.UNT    THH    liTiJUt'JT  •  b    SOCIAL    .'iJICUUTY    NUMEH:,<    ANC  NAMP. 

PLT    KIL;i  I  3  Y^Pmr-.T  )    t:  O  I  f  (  30  C_  3  c  f:_NO  ,  SObSTR  ( 

P:£.?50.NAU  .L  AS  r  .  I  ,  1       fc^A  (  Pi-lf.SCNAi.       AST  ,  •     M-l)  ll 

I  i  Pt;.^3'JNAL  .{■  I  isr  )  ( :iK  u>{.i } ,  a.col  (6)  <  a>  ; 
SPACt:  --  o; 
/ « 


CHec.<  tACn  r'e.';ij';;'jT  cacr-;.     if  rue  cooe  15  not  touAU  to 

ZefiU,    CALL    rM£   COi^i'C-.CT   P/II N  f    S'JHKdUTiNt:    ftlTM  ruC 
CCRRfiCT    A.?OUMf  NTS  . 

.  -  - .  ' 

Ir       :j  ;iL;3ST  t  LOOu  i  I  J    --.x:    Q  THEN   CALL  SUl3_i: 

ir-    wCGUl 'iT  .  CO  J!i ;  ,d  )  C  then   call  SUU_2(i^tOUEST.CODe 

<  a)  .Kc.iLhS  T  .NiJM  I  (  .:;  )  )  ; 

IF    /^Evi'JF  ST  .CODLl  J  )  0  THtN   CALL    S;Uf3_  J  (  rtE  QUES  f  .  C  00£ 

<J)  ,«C  JJkS  r  .MJ-ll  Cl!  .r.LOUbST  .NUM2(-J)  )  ; 

IF    ^i:ULcST.CGO:;( )  .)  ThtN   CALL    SJ  t;_4  (  r<  tiQU  £S  f  .  COCe 

(     )  .  P  r..JUhST  .MJM  I  (  A  J  ,  .<cOUe.  ST  .  NJM,>  (     )  J  ; 

Ir    '■<:{OLtST.  CCjDtiC  o  )       -    0  THlN   CALL    btjb_5  (  T  .  CODE. 

(  5  J  .    !:  J  Uc  S  T  .  TjO  >1  1  (  ;i  )  )  ; 

IF    SiQUriST  .C0i:::(  6  )    -.-    0  THEN   CALL    SU  B_6  (  R  ECU  E3  T  .  CODE 

(  .-j)  ,Pi-.U  l;;  3  T  ,  N.J  .1  1(6)  )  ; 

IF    K  -  JLL  3T  .  CODE  (  7  )  a  TH£N  CALL   SUH   7  (  FtEOUEST  .  CODF 

1  ?  )  .  F;-.OiJcST  .NiJM  1  {  •  )  )  ; 

IF  .iiF;oLi3r.coijE( 'i;    •=  o  then  call  sub  a; 

GO  Tc  single; 

end; 

p.unt  vhc  student's  myers  brigfjs  type, 

■  */ 

r'<cc.r.c'.j-ie ; 

IV;r    r  IL-  {  :;YSI^H  INT)    £■:!!  T  (REQUEST  DlCTd), 

M  Yi;-S_n.^  I  t;,G3  _u  ICT  (P-_S  SCKAl  .MYlIfi.S    US  IGGS)  )  (SK  IP(SPACF)  , 

CCL(  J;^)  ,  A,C0L(^^6)  ,AJ 
SPACE  -2; 
END    SUB    I ; 

F^iNT     iNFQ^iMAT  lUN    ABCUT    THE    STUDENT'S   REQUIRES  CCURSES. 

^  ; oc -i c  u:< L  <  c 00;-: ,  VA LUE ) : 

DCCl  A.'^E 

{  CUiJG  V  ,  V  ALUE  J    FtX(;G    BINARY  : 

/■«. 

IF    COUl-.#    IS    EGUAL    TO    TWO.    PP  INT    INFO.^MATICN   AUOUT  ALU 
ALL    RL-iUI'';LD    COUr.SES.       CTHEr^WlSE,    l-'r.lNT  INFUKMATIOiN 
A'JCUT    CN'E    «r-:QUIPED    COU.^GE    LSING    VALUE    AS   AN  INDEX. 


If-'    CCOIV    -    ^    fUEN  DJ; 
I  M  r  I  Al.    =    1  ; 

L ;  M  T  -  ■  > : 
E  N  c ; 

ELSE    in: T 1 ,L IMIT    =  VALUE; 
PUT    F  i Lt( S VSPrt  INT  )    EOrr  (REGUESr_DICT {^)  )  {SKIP( SPACE)  t 

I  c  L ( id)  r  A )  ; 

/  x 

PkINT    t.vPLANATOPY    !  NFP  C  .V  A  T  I  C  N    AHCUT    THE  GRAOE. 

PUT    (-ILE{  SYSt'.VINT)     EOITCGPAOE    =    *     INUICATCS  COURSE', 

«E  JUr^rMLNT    HAS    Ijl.CN    ME  T  >  J  (  C  OL  ( 6  )  , -i  A); 
DC    f.         -    J  M  Tl  AL    TO   HM  I  T  : 

P  V  r    F  I  LE  (  ;JV;-,Pr<  INT)    LO  I  T  (  REO_C  OU.Vie  _U  I  CT  (NUM)  , 

•^(,.\._)L     =    '  .  FE()..COJK':-E_GKADE(  NUM)  )  (  C  LL  (  ^  b  )  .  A  .  <  (  .'O  . 
;PACL    -  j; 

tNi)  so;!  -j; 

/»         "■  ■  ' 

p  <;.•.!  liiPo.AM/.v  i(;n  agcjv  the  stu;j*lnt'3  REOisrpAriCNs. 


■•  »■  -V 
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~  C. C  l_    .-i  r. 

<  COOL*  ,  VALUki_l  ,VALUl-._.i)  r;.Kt:D  UlNAiU; 

/* 

ir  rouF*   I';  touAi.  tj  ■•^o,  point   iimi-0[^mat  ion  AMOUT  AI-U 

CG!":L-T*"C    nuGl  Mr^AT  .       CJ  THF.R  A  I       t    Pr^ir.T     I  W"  i  )'<  f!A  f  1  ON 

AuCur  cihL  r.n.i  b  r     r  jijrj.     ir  i.;)Ul«  i.s  houa^i.  tu  udu.  u.-jf: 

VALLt_l    AS    AM    INUCX.       iF    CCi>'-1    lb    tOUAi..    TO    Thr;L-l;.    F  I  M> 
THL    INOtX    13Y   ChCCKING    VAl_Uf:_l    ANU  VALUli_2. 

*/ 

It-"  ccuF.  ♦  -      ThtN  do; 

I  N  I  T  I  AL    -    I  ; 

L 1 K I  T  =  a ; 
end; 

bLSfi  Dc; 

IN  I  T  I  .\L.  ,L  1  MI  T    -  VALUl-:_i; 
It'    COOli*    =    J    THL.N  OC: 

oc  MJM  -  1   ro  b; 

11=    VALUc:    1     =   REG  I  Sr.'^ATl  ON(NUM)  .Yw  & 

VAi_Uf£„2    -    KLO  I  ilRA  r  lUN  (NUr-:  >  .  OTR    THEN   Gl3  TO 

tND ; 

GJ    TO  LSUB_i; 

PR0CE  =  S:PUT    F  IlE  (  Sr  ii.jp  INT  )         it  tnEOUEST..Ol  CT  (3  )  )  (  SX.  IP(  SPACt  )  . 
COL{ J2  J  , A ) ; 

00    KLC    --    INITIAL    TO    I.  I.M  I  T    iVh  I LE  (  Pt- G I  ST«  A  T  I  CN  (  NOM  )  .  YR  -•- 

0  >  ; 

PtT    F  i  La  (  SYSP-V  I  NT  )    !:OIT{'Y:^    =    •  ,       G  I  S  T  ft  AT  I  CN  (  NUM  )  .  Y  B  t 
•  y  TP    =    '  ,  KhG  I  ST.rA  r  !       CNUM  )  .  Q  Tit  )  (  COL  (    6  )  .  A  ,  F  (  i: )  ,  X  (  J  »  • 

A  ,  /=  (  I )  >  ; 

DC    KCV^NT    =    I    TO    5    A  M  I  ^tl  (  C  GUr<  St;_  N  G  (  NU  V  >  K  GUNT  )  '  '); 

PJT       ILI-  IbYSP-'vINT  )    iln  I  T  {  CGlJ-.iC..MO{  NUM  ,  .K.JUWT  >  . 

•MRS    -    '  ,  MP.  b)  (  NUM  ,  mJ'JNT  J  1  •  oF-AOE    =    »  t  (?EG  i  STR  AT  I CN 

(  NGIV  )  .  Gh  ADt;  I  K  CUNT  I  )  (  COL  (66)tAtX{4),AfF{a)cX(^Jt^  A 

) : 

r.NO ; 
:£  N  o ; 
SPAct  --  j; 
lsou_j:   eho  s'j!3_3; 
/ 

P'-)INT    ALL    INFOKMAriCN    CC.NTAINEO    IN    THE  STP.UCT'JRE 
PEKbCNA^    AOOUT    Th:;    STJJcNT'i    LEARNING    ACTIVITY  OR 
A  C  T  I  V  I  T  I  e  3  . 

*/ 

S0[i_4:       i-'-,CCtiJOr'.r.(CODEfl!  ,  VALUf£_.l  tVALUe_3)  : 
CLCL A^H 

GP  (  ^  )    CHA.aAC  TlR  (  I  0 )     I  M  T  I  A  L  (  '  G  S  COP  '  ,  •  I  NC  I V  I  CU  AL  '  J  f 
SiJir  (  ?)     CH.A^ACTL-  {  I  0  )     I  N  1  T  1  AL  (  '  SOBS  T  I  TUT^E  •  .  •;<cGUcA:^«  )  , 
(  CCCt  •>  ,  A  "ifc  Af  ,  ACT  I  V  ITY  »  ,  VALUE_.l  ,VALoa_i!)    FIX£0  OlNAi^YJ 

A"<cA»    -  VALUt_i; 

ACTIVITY*    -  VALUE_2; 

IK    CCDli^'    >    2    THLN  DO; 
INITIAL    -    1  ; 
L  I  M  T    =    "33  ; 
Ar!LA</  ,  AC  ri  VI  TY*    -    1  ; 

Enc  ; 

LLS^.    IF    coot*    =    2    THrZN  OO; 

INITIAL         CNT  •>Y  (  A;^E  A-/ )    +    1}  ' 
LIMIT    =    LNTkYI  ASEA.?    f  I); 
ACTIVITY*   =    I ; 

CNo : 

i:L3!:    IN  I  r  I  AL  .L  I  MI  T    -    ENTRY  (Ak^A»)    4-  ACTIVITY*; 
PUT    F  I  Lc  (  3YSP,<  I  NT)     rlO  I  T  (  P  E  QU  tS  T_  0 1  CT  ( )  >  (  SK.  I  P(  SPACE  >  , 

COL ( J2 ) , A) ; 
0  0    NL.M    -    INITIAL    TO  LIMIT; 

/» 

[F    FACULTY    IS    E.JOAL    TC    ^HRO.    WHICH    GCCO^S   ONLY  WHEN 
THL    ACTIVIIY   HAS    NOT    UEEK   C  C  ,VP  Li:  TL  0  ,    UO   NOT    PPINT  THIS 
A  C  T  i  V  I  r  Y  . 

♦  / 

IF    LeA:;NING_ACNor-l)  .iACOLI  Y    =    C    Ti;!-:N   GO    TO  CHECK; 
/  ' 

St"T    Ti.L   CGHIiLCT    ^...KCJP    AND    SOCiSTlTU.TC    STATUS  VALUES. 

♦  / 

IF  li:a);mnu_a(nom)  .!jRcup  =  • ;  •  ij  then  G_.srATijs  =  t; 

LlSL  g  status  =  2; 

IF    Li-AriNlM,    A  (rnjM  )  .  i;01)ST  I  TUTf;    =    M'lJ    THEN   3    STATUS  I 


■ft  '  /  .  '  t<i    . . 
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PUT  r-iLfiT-.YSH;;  iNf )  iIiM  r  ( •  A^r.  a  ---  » ,  A;;fA_u  iCT(  a  uia /») , 
'  N  J  =  '  ,  AC  r i  v  1 T  Y  ■/ ,  juus r  j:  ( Lt  akn  i  mo_ a ( ^4UM) .  jat li ,  i , ) 

II     •/'     II     'jUUST  I,  (l.c.A-!.>l  I  KG    Ai  NUM)  .,<A  TL  .  J      )     !|     •/•  || 
sou;,  Vfk  (Li-.  Al  14  1  N'j_  A  (  NUM  )  .  C  AT  fi  •  'i  ,     )  ,  K  ACUL  T  V  ( l.f:  AHN  ING  A 
<  NOM)  .  K  At  LI.  T  Y  )  ,  AC  r  i  V  I  TY    f  I  T !_  i:_D  I  C  T  (  AC  T  I  V  1  T  Y    T  I  TLE"" 
(NUM>  )  .  CjP  (  O    S  TA  rULi;  .  JJUT  j_3T  AnjS  J  J  (  COL(  '+6)  ,~ 
;i    A,     (  J  )  ,  A  ,i- ( )  ,X  Ui  J  .  A  ,  X  <  2  )  ,  A  ,  CU1.( 'i  IJ  .  (A,X(5)), 
COL ( )  ,A  )  : 

PLT    f-  ll.d  (  SY  Sf'RiNT  J    1.  J  I  r  (  •  CCMNiCNT  G    -  •  )  (  CCJL  (  S  I  )  ,  A  )  ; 

DO  N  -  I   TJ  t.  >vni  Li:(cc:Mi-u;Nr(t'4UM,N)        o)  ; 

PUT    K  IL!;(  S  YbPR  INT)    LIJ  i  T  (  CCiIMlN T_0  I  CT  (  CnMMl£NT  (  NUM  ,  N)  ) 

>  <  ecu  Co6 )  . A)  ; 
tNO ; 

/ » 


INCiiEMENT   ACTIVITY//   BY    C  NE  . 
ChftCK.:  ACTiVITY*    =    ACTIVITY*     ^  i; 


*/ 


It-    THC    VALUE    OF    Tl-tT  INDEX    IMTU   L£ARNING_A  IS 

EOUAL    TO    THh    VALUE    OF    THE    NEXT    ELi-MENT    IN  ENTRY, 
INCREMENT    THE    A'<EA«      Y    CWE    ANO    HuSET    ACTIVITY*    TO  ONE. 

*/ 

IF    (ACTIVITYV    -r   ENTRY  (AREA/.')  )    =    ENT  r<  Y  (  A  RE  A /»    ♦    I)     +  I 

THEN   D'J  ; 

/iKcAa    -ASEA^+l;  ,. 
ACT  I  VI  T Y«    =    I  : 

ENo; 
end; 
SPACE  =3; 
cue  SUU_'H 
/* 

P'.I.NT    SUKMA.^Y     INFOKMATICN,    WHICH   CONSISTS    OF    THE  TOTAL 
NUMdEP    OF    lea;;  N  i  Ni^    ACTIVITIES,    THE    PE'-iCENT    OF  ACTIVITIES 
CCvPlETEC    A;,j    THE   NUMuiE,.    OF    THE    MISSING  LEARNING 
ACTIVITIES    CY    APEA    ANO    OVERALL.    FOR    THE  STUDENT'S 
LEA-.MNG  ACTIVlTiES. 

*/ 

;L-:1_5  :       P-CC  F  Ou'tf.  (  C'Jf^E*  .VALUE  )  } 
C    CL  A '<  E  • 

i  CCCE/*  ,  VALUE  )    FIXED  BINARY; 

/  « 

IF    CLii)E»    IS    EOUAL    TO    T  .V  0 .    P«INT    SUMMARY  INFORMATION 
A. .OUT    ^.EA-^NING    ACTIVITifS    IN    ALL   AREAS.  OTHEr^WISE. 
Pr  I.-JT    THIS    INFChiMATICN   FOR    CNE    Ai'^EA   USING   VALUE    AS  AN 
I NDEX  , 

*/ 

IF   ruo-i    =    ■'.   THEN  oo; 

iM  r  I  AL  =  1 : 

LIMIT    =  10; 
ENC  ; 

Ei.SE    IN!  T  I  AL  .L  IM  J  T    =  VALUE; 
PUT    FILE<SYSPf^.i;MT)    E  D  IT  (  hiEQU  EST    0 1  CT  (  5  )  )  (  S  K  I  P  {  SP  A  C  E  )  , 

CCl  i  J^:  )  ,  A  )  ; 
T.J  r  AL_ACT  I  V  IT  lES  ,  TOTAL    MISSING   =  0; 
/« 

CALCUuATE    4NQ   Pfi  INT    THE    SUMMARY    TOTALS    BY    AfttA  .  ALSO 
CALCULATE    THE    OVERALL    SUMMAkY  TOTALS. 

*/ 

DO    NUM    =    INITIAL    TO  LIMIT; 
AC  r  I  V  T  T  lES  I  MI  SSI  NG    ^-  O: 

DC    KCUNT    =   ENTRY  <  NUM)    T(J    <ENT«Y(NUM    +    I)    -    ?  )  ; 
ACTIVITIES    -   ACTIVITIES    +  .1; 

IF    LEA4NING_A(KGLNT         I). DATE    -    •     •    THEN    MISSING  = 

M 1 SS I NG    +    1 ; 
END  ; 

TGTAL_ACT  IV  I  T  lES    =    T  O  T  AL_  AC  T  I V  I T  I E  S    +  ACTIVITIi-SJ 

TOTAL_MI  S'^l  rj>,    -    T(]  TAL_H  1  SS  I  NO    +  MISSING; 

PL  f    F  I  Lt  (  SY  SPi^  INT  )    ,iDIT('A,?EA    -    •  ,  A- t  A_  B  I  C  T  <  NU  ,V  )  • 

•CCMr-LET.-.i?    •  .  (  (  ACT  I  V  I  T  lES    -    M  I  S  5  I  N  G  J  /  A  CT  I  V  1  T  IE  S  )  * 

100,'/.    01     '  ,AlT  1  v:  T  IE::  ,  '    AC  T  I V  IT  I  E  :i  '  ,  •  M  I  SS  UJ  G    .'  . 

MISSING.'    ACT  I  VI  T  lES'  )  (COL(  46}         A  ,  X  (  6  >  ,  A  ,F  ( .IJ  ,  A  , 

F  (^)  ,  A  ,LGL  (  ^  J)  ,  A,F  {  <i  )  ,  A  )  ; 
END  ; 

/« 


IF  lOU.'.*  is  euUAL  TC  T,»C.  INCLUDE  (5EYnND  THF  MINIMUM 
ACTIVITIES    IN    IHE   UVE-iALu    SUMMAK  Y    TOTALS    AND  PiUNf 

These  totals. 
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*/ 

IK   CCOli*    =    V.    ThCN  OO: 

OU    KLUNT    •-   f:NTI-!Yl!U    TO    ( t  N  T  fir  <  1  ^  )    -  2>; 
TnrAL_ACT  IVI  TIES   --    FUTM.    ACTlVlTItiS    ♦  i: 
v.-    Ll:/.f<ra.NG    A(KUUrJr    +■    M.lJATi:    -    •     •  ThtN 
Td  Au    MISblNU    -    rCTAL_y  I  S'j  ING    f  i; 

Pl^T    K  I  Li;  {  'i  Y;;PiMNT  )    r:OIT('ALL    uE-.AftNINo   AC  T  I  \>  I  T  I       •  i 
•COMPLCT^D    '  ,  (  {  TOTAL_AC  T  1  V  I  r  iL  J    -    T  U  f  A  L_  M I 'j'j  X  NO  )  / 
T'.MAL    ACTIvrri'IS)         100.        OK    •  ,  TOT  AL_AC  r  I  V  I  r  1  ES  , 
•    AClTvi  Tit  >'  ,  •  >1I  SS  IM(.    '.TOTAL    MISSING.*  ACTIVITIES' 
\  (  CUL  (  ,  A  ,  COL  (  t;'0  .  A  ,F  (  J)  ,  A  .Fla)  ,  A  ,CUU  (  90  )  ,  A  t 

F J  , A)  ; 

F:NC  : 

spACc  =  .1; 

c-ilM  ALL  INF0«MATICN  CCNTAINcD  IN  THE  STRUCTURE 
Pi:'-<  oC.'-IAU   A.iCoT    TH[-;    STUUiZNT'S   r-'IiTLO   EXPfi^  I  liNCF.  OR 

tixi^uf;  itNCts. 

♦/ 

sui:i_t :     V  ^ccclJUKt  ( coot   ,  valuf.  ) ; 

C  i£  C  L  A  !5 

iCOLJE*  .VALUt)    FIXEO  BIMAt^Y; 

/  * 

IF    COut«    I  J    EQUAL    TC    T./C,    PT^INT    INFORMATION   AaOUT  ALL 
CC.VFLhrCC    rlCLD    EXPdKIHNCdS.      O  T  HER  W  I  St  .  PRINT 
INFOrf^ATICN    AbGJT    ONc:    F  I  EL  C    EXPERIENCE   USING   VALUE    A5  AN 
INDEX. 

*/ 

IF    CCDCsf    -    Z    THEN  OC; 
IM  T  t  AL    -    1  ; 
LIMIT    -    7 ; 
END  ; 

ELSE     IMTIAL  .LIMIT    -  VALUE; 
P  jT    F  I  Li(  SYSPr^  INTJ    EDIT  (HliOU£3T_DI  CT  (6J  J  (  SK.  IP(  SPACE)  . 
CGL(  Jc:)  ,A)  ; 

OG    NUM   -    hglTIAL    TO    LIMIT    WM I LE ( F I  EL D . SCHOOL ( NUM )    s=  0); 

PoT    F  I  Li-:  i  CVSFf:  INT  )    Ei;ir{'YH    =    •  .FI  ELC(ri'Ji>>)  .Y«.  'OTR    -  ' 
.F  I  ELC  (  iNUM)  .  or  K  ,SCHCCl_0  ICT  {  F  I  El  0(  NJM)  .SChOOL)  • 
F  I  E^L  ( .MU.'i)  .  TFACFfc  -  .  •  GP.AOE   =    '  ,  Ci^  ADE  .O  I  C  I  (F  IELD(:NUM)  . 
Gr>«LjL  )  .  CLAS  5rx'JG.M_i5  I  CT  (  F  I  £lO(  NUM  )  .C  LAS5R0GM  )  . 
EE  V5L_0I  CT  (  r-  I  E  LOl  NU.v  )  .LEVEL  )  )  (  CCH46  )  ,  A  ,  F  (  i.'  )  .  X  (  3  )  t 
A . F (  I  J  ,  A ( J )  , A , X (  1  )  ,  A , CCL  (il)  .A,A,X(b).A.X(J),A); 

PUT    F  I  lE  (  SVSP  ^  INT  )    E0ir('t5CL£    =  •  )  {  C  OL  <  5  1  )  ,  A)  ; 

Du    N    =    1    TO    O    WHILECF    r;CLE(NUM.N>    -.-  O)*, 

POT    F  ILE  f  5  YSP.'^  I  N  f  }    ED  IT  I  F_ROLE_0  I  C  T  (  F  _RULE  (  MUM  s  N  )  )  ) 
(CCL (  ifc)  ,A)  ; 

EN  J ; 

PoT    F  ILE ( S YSPA  INT  )    ED  I  T (  ' 5 Tk ENGT HS    =    • )  ( COL (  b 1 )  , A )  ; 
OU    M    =    1     TO    6    V.lll  Lr;( -'iTKcNGTHS    ( NOM  ,  N  )  0); 

POT    F  ILE  (  SYbP  U  iN  r  )    E  0  I  T  (  ST  RE  Nt.  f  H  S    C  I  C  T  (  S  Tl?  EiN  GTHS 
(  KUivl.iM)  j  J  (COL<06)  .A)  ; 

end; 

PlT    F ilk ( SYSPP INT  )    EJirC'NtEOS   - •  ) ( COL ( 5  I  )  ,A ) ; 

00  N    =.    1     TCi    6    *rt  I  LU  (  .V  b  AKNESSE  S  (  NUM  .N  )    -.=  0); 

PUT    F  luE  (  S  YSP  t  I  NT  )    EO  I  T  {  WE  A  K.NE  SS  E  S_U  I  C  T  (  hE  AKNE  SSES 

(NUM.N) n (C0L(06) ,A) ; 
F-NO  ; 
End; 
SPACE    -  3; 

END    SUG_6;  . 

/ » 

P-iINT    SUMMARY    INFDi^MATI  CN.,    WHICH   CONSISTS    OF   THE  SCHOOL 
NACE    AND    GRADE    LEVEL.    AOQUT    THE    STUU.fNT'S  FIELU 
EaFE^ I E\CES . 

*/ 

SLb_/:      PRCChnjRE{CQDE#, VALUE) > 
CECL  E 

ICODE*  .VALUE)    FIXED  lilNARY: 

/  « 

IF    CODE*    tS    EQUAL    TO    f^Q,    I>m  NT    A    SUMMARY    OF   ALL  FIELD 
EXPERIt-NCfcS    COMn.cTEO.       OThiftrtlSE.    P^<INT    A    SUMMARY  OF' 
CNF.   FIE^C.    EXP(.F,  IE.-JCl   U'JING    VALUE    AS    AN  INDEX. 

IF    cCDUr    =    Z    THEN  DO; 

1  Nl  r I AL    =    I  ; 
L  I      r    -   /  ; 

E.\c ; 

FLEE    IN  I T I AL  .c IM  I  T    =  VALUE; 
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(-"J  r  i- « LCi  i Y  if-i;  I KV;  Kiji  r  {Hr:0'je:^3T„o i  ct  (? .» )  i  t.K  ip(  s.'ACu)  t 

DO    NUM    -     liMfiAi.    TO    LIMIT    w ,  1 1  L  K  ( i  I  tX  0  .  ;>C.I 'COL  ( :  J IJM  )  0  )  ; 

"U1    !^  :ur  V  SYSH INT  )    iiU  I  r  ( -jCHOUL   O  ICTC  l-IbLD(N;jM)  .SCIiOCL) 
.►o.^AOu    :■-    'tCACC    (J  I  or  I  (-■  ILLDTiJUM  )  .  GRAUt )  . 

CLASs;-;f:CM_i)i  ct  i  h i  dui: ( ^.uM)  .CLAr-si- cum)  )  c  col( ) «  a . x(  i  > 
t     A  1 A  t '  j )  t  A  )  ; 

SPACi£  =  3; 
t'ND  son_7: 
/* 

p-'INf    Ai.!.    !Nf'(jS  .'--AT  ICN   CCtJTAINED    IN    THE  STRUCTURE 
PtRtXNAL    AdUJT    THir":    STUU-^NT'S    CUMMUNITr    fcXPi£.^  1  t.NiC  (H. 

suu_8:     :'';ccer;ijr?E ; 

PUT    K  i  Lf  (  -J  Y':Pt\  INT)    EDI  T  (l-.eaUEST    DI  CT  (3  )  )  (GKI  P(  SPACf)  . 

CI.. L  (  .> ^  )  ,  A  ) ; 
I^■    CCM  VuM  T  Y  .  AGtNCV    -    •     '    Tt-t£N  RETU.JN; 

PUT    r  ILfc(  SYSP-,  '  NT)    ilOITt'Y:!    -    •  ,  C  C  MM  jrj  I  T  Y  .  YR  ,  '  0  T.'?    =  'i 
CCMM'J.M  n  Y  .  U  rr  ,  COMNUI-a  T  Y  .  AGCNC  Y  .  '  AGHNC  f    pfcP  - 
AGrlNC  r„^£P  .ut-VtL    O  1  C  T  {  C  w  .-I'l  Ul .  I  T  Y.  Lu.  VtL)  )  (  COLt  /*6  )  . 
A  .  F  (     )  .  X  I  J  )  t  A  ,  F  {  1  )  .  X  (  J  )  ,  A  ,  X  ( ■:.  J  ,  A  ,  X  (  -J  J  ,  A  ,  ecu  AO  )  ,  A  )  ; 

Put    f-ILC-.CL^YSP^  iNT)    ti;  IT  (  '  ^GLt:    -  •  J  (  Cu  L  (  S  I  )  t  A  )  ; 

OG   !s'    -    J    T  )    I-    hHIl.£  {(:_PCLc;(  N)    ^-  0); 

CJT    F  ILC  (  SYSPP  INT  )    'iJITIC    r<  OLE;_0  1 C  T  I  C_n  CLE  {  N  )  )  ,) 
(CQL(66)  lA  )  ; 

tNU ; 

PJT    F         (  SY-SPP  INT  )    r.0  I  T '.' COMMENTS   =  '  )  {  COL  (  5  I  >  .  A)  ; 
OC    U    -    I    TO         v.H  I  Ltl  {  C_C  CMMIiNT  (  N )  0); 

PUT    F  ILEK  SYbPfvINTJ    il  D  I  T  (  C_C  C  N  MKNT    0  I  C  T  <  C_  COM  M  F  NT  (  N  )  )  } 

(CCL{6e)  ,AJ  : 

SPACk   ~    i\  . 
END  HUti_e; 

f- 1 N  t  SH  :  c  N  0  ; 
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iEG:      PRijCL'OURt   OMTICMS(MAIN)  ; 

/* 

prc<;ram:  pu.'^gi: 

CUTPUT 

DESCRtPTICN;         ASC^K'OINC,   LIST   OY    SOCtAL   SECURtTY  NUMHKR 

01-  sruoiiNTs  vv.icoe;  recohoi';  jeiie  pu;~?giio 

TROM    THk    MAllJ   i'lLt-;    AMO    'jAVEO  UNUtTSS 
OTMMMWIit  INDICATED. 

algckithm:         reao  ths  initial  oat*,    process  the  main 
file.dy  storing  pu'^geo  recokos  in  the 
save  file  and  creating  a  new  main  till:. 

PR  INI    AN    APPP.lJPli  I  AT  £   MESSAGE   FOK  EACH 
RECORD   TO   BE  PURGED. 

NOTE  THE    FCLLOWING    DECLARE  5TATEMENT(S) 

INCLUOEO    IN   THE    P.90GRAM   NAMED   ALL    MUST  OE 
ADDED   TQ    THIS    PROGRAM    PiVIOH    TO  EXECUriCN: 
I.      THE    STATEMENT    LABELED    ONE  ,VHICH 
CCNTAINS    THE    STRUCTURE  PERSONAL. 

♦  *■.»■»*        +  i  it*        k  If  *4t**:(<  ***^ii*  +  **^t**t*** 

♦  / 

cecLARe 
/♦ 

tilT    WHEN    SET  TO   A    •  1  »  13    INDICATES   THAT   THE   END   OF  A 
FILE    HAS    BEEN   ENCOUNTERED   ON   AN    INPUT   DEVICE,  */ 
H  I  T    G  I  T  <  1  )  , 

CU'^_OATE    CHARACTER(  0)  , 

(  OLD  ,NE«/ .  SAVE)    FILE   RECORD  SEQUENTIAL. 
?S_rjO    CHARACTERly)  ; 

/* 


INITIALIZE    BIT    TO   A  '0*S* 

B  I  r  -■  •  0  •  s :  • 

/* 

PEAC    THE   CURRENT  DATE. 

GET  FILE(SYSIN)  ED  I T ( CUR_OA TE )  ( C OL ( 1  ) . A { 6 ) J ; 
/  * 


CN    ENCOUNTElMNG    AN    END    OF   FILE    ON    SYSIN,  WHICH 
INDICATES    THAT    THERE    ARE    NO   MC3E    RECORDS    TO  OE 
PURGED    PRCM    THE    MAIN    r- !  L  E ,    SET    t3  I T    TO    A    'I'b.  COPY 
THE    i^EMAINIiNG    RECORDS   ONTO   THE    NEW    MAIN  FILE. 

*/• 

CN    ENCFILE (SYS  IN )    UEG  IN : 

IF    BIT   =    'I'O    THE.N    GO    TO  FINISH: 
Q I T    =  '1*3; 

others:      read  fileiclo)  intoipersonal) : 

SPRITE    FlLE(NElv)    F  S  C  ^' (  PH  RS  C  N  AL  )  ; 

Gc  TO  others; 
end; 

/* 

CN   ENCOUN fcRING    AN    END    OF   FILE   ON   OLD,    WHICH  INDICATES 
THAT    MO   f/CRE    RECORDS   EXIST    IN    THE    MAIN   FUF,    SF  T   BIT  TO 
A    M'O.      PRINT    THE    REMAINING    SOCIAL    SECURITY  NUMBERS 
TO    BE   PURGED    WITH    THE    MESSAGE  /MISSING.' 

CN  ENnFiLEioLO)  oegin;  * 

IK    BIT   =:    •  1  •  IS    THEN   GO    TO  FINISH: 
□  IT    -    • I  »  H ; 

message:       PUT    FILE(SYSPRINT)    ED  I T ( • M I SS I NG •  , S S_NO ) ( SK I P , A , X (  I  2 )  . 

A )  ; 

get    file (SYS  in)    EDiriSS   NUI  (SK  IP  .A(9)  ) ; 

go  to  message; 
end; 

/* 

CN_ENCOIJNTER(NG   THE   END    OF   A   PAGE.    PRINT    THP  HEADER 
[  Nr  C  !<M  AT  ION. 

ON    ENCPAGE ( SYGPR (NT )    OFGIN;  * 
PUT   F  ILE  (  SYSP'^  INT  )    (.IMT(CUR    0  A  TE  )  (  P  AGE ,  A  J  ; 
PUT   F  ILE  {  SYSPRI  (JT  )    E i>  I  T  (  •  P ui< GF  •  , 

•curpur  D;:scRiPTioii:  asckmding  list  of  sruoENTS  »t 


•WHOSe    RCCOr.03    V.EPF    PURGt-O*,'    t-R:m   THE   MAIM    FILE  'i 
'AND    SAVLD    UNLESS   OTHEHMSC    I  NO  I  C  A  f    0  •  )  (  SK  I P  ,  A  ,  SK  IP  t 
^    A  .CCLIS)         A)  ; 
PU  T    K  ILE£  1  syi>PK  II  JT  )    EU  I  T  (  •  KRROR   MBS  SAGE  '  ,  •  S  .  3  .  NUUOKR  »  . 

'NAME','  •.•      _    _   MISKJPCb), 

A  .COL  (20)  ,  A  .  CUL  ( 0  »  ,  A  ,  Si<.  I  i'  (  0  )  ,  A ,  COL  (  ^  0  )  ,  A.CULt  40)  ,A  ) 

PNo;  » 

/* 

PRINT   THE   HEADER    INFCRMArXON  FOR    THH   FIRST  PAGE  OF 
PRINT. 

*/ 

PUT    FILE(SYSPP.INT)    fiOITICUR    D  A  TE  )  (  P  A  GE  ,  A  )  ; 
PUT    FILE(3Y3PRINT)  -  EDIT<«  PUi^GE."  , 

•OLTPLT    Dr;:3CP  I  PT  I  ON :    ASCENDING   LIST    OF  STUDENTS 

•ivMCSE    RECORDS    WERE   PURCEO'."    PROM    THE   MAIN   FILE  ». 

•AND    SAVED   UNLESS    OTHERWISE    I N  D I  C /V  T  E  D  '  )  (  SK  IP  ,  A  ,  S  K  IP  , 

2    A,  COL  (■^<).  2  A»; 
PUT    F  !  LE  <SY3-->R  INT  )    EOITCERROR    M  ES  S  A  GE  •  ,  •  S  .3  .NUMBER  •  , 

•NAME'.'   '.■  '){SKIP{6). 

A , CCL ( 20}  . A , COL ( 4  0 ;  . A  , SK IP  I  0 ) , A , COL ( 20 )  , A .CQL(  40)  .A)  ; 

/* 


READ  THE  SOCIAL  SECURITY  NUMQEft  CF  A  RECORO  TO  BE 
PURGED    FROM    THE   MAIN  FILE* 

next:         GET    FILE(SrSIN)    EDITISS    NO ) { SK I P , A ( 9 ) ) ; 
/* 

READ   A   RECORD   FORM    THE   MAIN  FILK. 

LOOP:        REAO    FILEfOLD)    I NTO ( PEft SO NAL ) ; 
/* 


IF    THE    RECORD    TO   BE    PURGED   HAS   NOT    YET    OEF.N   FOUND  IN 
THE    MAIN   FILE,    CUPY    THE    CURRENT   PECOHO    ONTO  THE  NEW 
MAIN  FILE. 

check:       if    PERSONAL. SCC_SEC_N0    <    SS_NO    THEN   DO ; 
WRITE    FIL£(NGW)    FKO M ( PER SUNAL ) : 

GO  ro  loop; 
end;  ■ 
/*  ■ 


IF    THE    RECORD    TO    BE    PURGED   DOES   NOT   EXIST    IN   THE  MAIN 
FILE.    PRINT    THE    SOCIAL    SECURITY    NJMbcR    WITH  THE 
MESSAGE    'iVISSING.'       READ    THE    SOCIAL    SECURITY   NUMBE.T  OF 
THE    NEXT   RECORD   TO    BE  PURGED. 

*^ 

IF    PPI5S0NAL  .SOC_SEC_NO    >    3S_N0    THEN   00 ; 

PUT    F  ILE  I  SYSPR  INT  )    ED  I  f  (  •  H  I SS  1  NG  '  .- SS_NO  ) 

(  SK.  IP  ,A,X(  l^)  ,A)  ; 
GET    FILcISrSIN)    EDITISS   NO  )  { SK  IP  ,  A ( 9 ) )  ; 

GO  TO  check; 
END  ; 

/* 


THE    RECORD    TO    Bt.    PURGED    HAS    BEEN  FOUND.      PRINT  THE 
SOCIAL    SECURITY    NUMBER    A.\0    NAME    FROM    THIS    RECOi^D.  COPY 
THIS    RECORD   ONTO   THE    SAVE  FILEi 

♦, 

PUT    F ILE (SYSPR  INT)    ED  IT ( PERSONAL  .SQC_SEC_NO , 

SLtiSTH  <  PERSONAL.  LAST  ,  I  ,  INDEX i  Pe;R  30NAL.  L  AST  ,  •  '  )  -  I  )  |  | 
',•     il    PERSUNAL.r-  If.ST  )  (COL  iliO)  .A  ,X  {  I  I  )  ,  A)  ; 

write  file(save)  fh  c  f  (  p  e  t.sq  nal  )  ; 
go  tu  next; 
finish:  end; 


/♦ 

CUT PUT 

ut£i>cri(pT^ON;  LJ'jriNc;  cr  pt:!?S(iH.4L  information  on 

algcrithm:  ri^al;  i  if   initiai.  data,    process  the  file 

SrZOUEN  ri  ALl-Y.      PiUNT    FIELD  REQUEST 
IN'ORM-VTION   FOR    liTUOENTS    IN    THE  SEMINARS 
uEING  PliOCES5E[>» 

***  «  «  ■>  ♦*  (t^j*  -t**  *  >  .k*  +         -It******  1i>       V**  ♦^tAili  i**       ic  i.« 

NOTE  IHC    FCLLQWING    DECLARE   STATEMENT (S) 

INCLUDED  IN  THE  PSOGRAM  NAMEO  ALL  MUST  HE 
ADOED    TO    THIS    PROG-'JAM    P(?IOR    TO  EXECUTION: 

1.  THE    STATEMENT   LACcLEO   ONE  WHICH 
CCNTAINS    TH£    STRUCTURE  PERSONAL. 

2.  THE    STATEMENT    LAbELtO    TWO  WHICH 
CONTAINS    THE    D I C f I CNAS I E S . 

*<t1tt*.y-<t**  +  *#*:,.l<»  *******  + 

*/■ 

/« 

READ   THE   RANGE   OF    THE    TEAM   NUMBERS.      THIS   RANGE  IS 
USEO    TG   DVN  AM!  CALLY    CUN  T'^OL    THE    STORAGE    ALLGCATEO  TO 
FACULTY  NO. 

*/ 

GET    FILE(SYSIN)    EO  I  T  ( M  i' N  ,  M  A  X  )  (  COL  (  I  )  >  2    (  F  (  1  )  ,  X  {  4  J  J  }  ; 
II E  G  I  N  ; 
DECLARE 
/* 

DICTIONARY   OF   THE    FACULTY    .VEMOER'S   NAMES  ASSOCIATEO 
WITH    THE    CODES   USED    {N    PERSONAL.  */ 
FACULTY(25)    CH AR AC T EK (  I  4 )     I N I T I AL (• BERNARD CURRAN •  , 
•OETURC  •  ,  'FEY  '  .  '  GJi-DMAN'  .  •  HI  LL  I  AkO  '  .  •  .iESTER  •  . 

•  K  !  N-?:ER'  .  •  lew  I  S  •  .  '  L  ITCHGR'  .  •  MAR f  INELLO  •  ,  •NEWCOMQ  •  . 
'CLSCN  •  .  'PENLANO  '  , '  ROiVE  '  .  •  SE  mAPH  I  NE'  .  '  SHEA*  ,  »SM  I  f  H«  . 

•  T  I  tiCN'  ,  '  .V  ILHOT  »  .  'KRALL*  ,  '  CREEOON*  ,  '  LEVI  NE  •  » 
•HCOCES* . • GRIMM' ) , 

/* 

FACULTY    NUMf3ERS    OF    THE    SEMINAR   LEADERS    QY    TEAM.  */ 
FACULT Y_Na (M IN  :MAX  ,4}     FIXED  BINARY. 
/  * 

DATE   OF    THE   UPCOMING   FIELD   EXPERIENCE.  ♦/ 
RbOUE £ T_DATE    CHAR ACTER ( 1 5) i 
CUR_ DATE    CHAR AC fER ( ai , 

{  Li:CAL_LENGTH,PERM  LENGTH)    FIXED  BINARY. 
OLD   FILE   RECORD  SEQUENTIAL; 

/* 

INITIALIZE   FACULTY  NO. 

*/ 

FACULTY    NO    =  o; 
/* 

ON   ENCOUNTERING   THE   END   OF   THE   MAIN   FILE   TRANSFER  TO 
THE    LABEL   F  INI SH . 

*/ 

ON    ENDFILE(OLO)    GO    TO  FINISH; 
OPEN   FILE(SY^.PRINT)    L  1 1  IE  S  I  7.E  (  I  JO  )  ; 
/  * 

READ    THE    CURRENT  DATE.       THEN    READ    THE   DATE.  ViHICH 
CONilSrS   OF    THE    YEAR    AND    vlUARTER,    OF    THE    UPCCMING  FIELO 

Experience. 

♦/ 

GET    FILE(SYSIN)    EDITICJR    C A T E ) ( C OL ( 1 ) , A ( 0 ) ) ; 

GET    FIlE(SYSIN)    EDIT(REGUE5T    DA T t )  ( COL ( I  )  . A (  1 5 )  )  ; 

/* 

READ    THE    NUMBER   OF    TEAMS    TO   UE    PROCESSED.       TiHEN   FOR  EACH 
TEAM   READ    Tilt    TEAM    NUMHER.     THE    NUMBER    CF    SEMINARS    TO  UE 
PROCeSSFO,    AMD    THE    SEMINAR    NUMrJER    A\i)   FACULTY  NUMtJEK 
OF    EACH    SEMINAR    TO    HE  PRUCGSSED. 

*/ 

GET    FILEiSYSIH)    EO  I  T  (  NO    C  ARO  S  ){  COL  (  1  i  ,  F  {;,>))  ; 

DO  1   --  1   TO  NO  cards; 

GET    FILE(SYSIN)    E  D I  T  {  f  E  AM  3(  ,  L  I  M  I  T  ,  !  SE  M  I  NA  R*  ,F  ACUL  T  Y_NO  { 
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Tf--AH,»  .SEMINAR-J  )    130    J   "    I    TO   L I  M  ITl  )  (  COL(  I  )  •  ^  (Kil). 

X(  1»  3  ,4    (f- (  I  )  .X(      .  t- (  2)  fXCJ)  ))  ; 

ENO; 

/* 


RE>>0    A    STUOeNT'S  RECORD. 
L00f>:        RCAO   FILe(OLD)    INTOIPCRSONAI.)  ; 


*/ 


IF    THE    STUi:>!ZNT'S  RECORD    IS   MOT   TO  t3E   PROCESSEO,    OOTA  IN 
A   NEW  RECa??tJ 

If-'    (  FACULrY_NO  (  TEAM  ,'3E.M  INAH)    -   0>    THEN  GO   TO  UOOP; 
/* 

PRINT    THE  HEADER    I HF0RI1A  T  I  ON  . 

PUT   FIL.E(5Y'5PR  INT)    E  f;  IT  (  CUR_0  AT  E  J  (  PAGE  ,  A  )  ; 

PUT    riLf£(  SYSPRINT)    E  0  I  T  (  «  R  EQ  UE  S  T  '  ,  •  OU  T  PUT    OESCR  I  PflQN  :  •  t 
'    LISTING   OF    PERSCfsAL.     INFOPMATSON   ON    STUDENTS  •# 
'RE-:UESTiNG    FIELD    t  XP  ER  1  ENCE  '  M  3  K  I  P  .  A  .  S  K  !  P  ,  i  A); 

PUT    F  ILL(  SYSPR  INT)    tO  I  T  (■  REQUEST   FOR    •  ,  REOUEST._DAT  E  )  {  SK  IP  .2  Aj; 

/♦ 

PRINT    THE   STUDENT'S  NAME. 

*/ 

PUT   FILE(  SYSPR  INT>    E  D I  T  {  '  NA  ME  :  .»  ,  5U  33  TR  (  PER  SONAU  .  F  I R3T  ,  1  . 
INOEX(Pi£RSC.'MAL  .1-  IRST,  •     •)    -   i)     I  I     '     *  il 
PEhSCNAL»L.AST/^S.<IP{6).A,CQL(^S),A): 

/* 

CALCULATE    THE    LENGTH   OF    CITY    FOR   THE   PERMANENT  ADDRESS 
AND    THE   LOCAL  ADOSESS. 

PERA'   LE.ICTH    =    tNOEX(  PeRM_AODR  .CI  TY  ,  • 

IP    PtRW_LEN(3TH   =    0    THEN    PER^_LENOTH   -  20; 

I  tjC^L    I  ENGTH   -    INDEXJLOCAL    Al>DR.CITY,'  •); 

IF    LCCAL_LdNGTH    =    0    THEN    LOCAL_LENGTH   =  20; 

/* 

PRINT    Ti.e   STUDENT-  S   LOCAL   ADDRESS   A^D  PERfiANENT  ADDRESS. 

*/ 

PUT    F  t  LE SYr>PP  I!-T  S    EOiTC'LUCAL  ADDRESS:*. 

LOCAL_AODH. STREET  ,  ■HUME   ADDRESS:  '  , PERM_AODR . STREET . 
StBS  TR  <  L  QCAL_ACO-5  .CI  T  /  .  i  ,L0  C  AL_L  EN  GT  H 

»  ,LOCAL_AOD:J  .S  r  ATE  .L!jCAL_AGDR  .i  IP. 
SUS-l^,T^•^{  PE3.M    AOD:^  ,  C  TY  .  I  ,PERM_LENGTH 
-i;.'>     »,  oL-f<M_A0;vr5  .STATE. PEPM  ADDP.^IP, 

LGCAL_PHCNE  »PERM_PHONfc  J  (  S  K  I P  ( .?  )  .  A  ,  COL  (  25  )  ,  A.  COL  (  65  )  s  A. 
COL{ 90)  .A .CaL( 2i >  ,  J    A  iX { 2 )  . A . C CL 1 9 0 )  . J  A.Xiaj.A. 
CCu(25)  ,  A,COL(90 )  ,A>1 

/* 

PRINT    THE   ST'.;DENT'S   DATE   OR  BIRTH. 

*/ 

PUT    F ILE( SYSPR INT)    EDITI'OATE    OF  BIRTH:', 

BIRTH_CATE. MONTH,  •/•  ,  CI  I  RTH_0  A  T  E  .  D  A  Y  ,  •/•  ,  BI  RTH_OATE  .  YR  > 
( SKIP! 2)  , A, COL < 2 5  )  ,F  i  2)  ,A,F(2)  ,A ,F (a) )  : 


PRINT    THE    STUDENT'S    TRAVEL   AND   WORK  EXPERIENCES. 


*/ 


PUT    F I LE^ SYSPR  INT)    EDIT ('TRAVEL  EXPERIENCE:*. 

' WORK    EXPER 1 ENCE  :  •  )  ( S  K I P ( 2 )  . A  .COL( 55  I  . A>  ; 
PUT  SKIPiOi.: 

DO    N    -    I    TO   P    WH ILE  (  TRAVEL_nXP  IN  )  0  | 

v/OKK  _EXP  (  N  )  0  )  ; 

PUT    F  ILE  (  SYSPR  IN  r  )    EDIT(TRAVEL   EX-">    O  I  CT  (  TR  A  V  EL  _EXP  (  N  )  I 

,  V.ORK._EXP_0  1  CT  {  WORK,    EXP(N)  )  ;  {CO_  (  2S  )  ,  A  ,COL(90)  .  A)  : 
ENC  ; 

/* 

PRIM    INFORMATION  AUOUT    THE   STUDENT'S  CURRENT 
EMPLCYMENT. 

*/ 

PUT    F  (LE  (  SYSPR  !  NT  )    E  D  [  T  (•  CURRENT    E  f-IP  LO  YMEN  T  :'.  EMPLOYER  » 
•HOURS   PER    WEEK    =',HP.S    PER    WK.  >  (  S  1<.  I  P  (  2  )  ,  A  ,  COL  {  2  5  >  .  A  i 
CQL(  ijS)  I  A  ,  X(  J>  ,F(  2>  )  > 

/  f  t 

PRINT    THE   NAME   OF    THE    STUDENT'S    ^eMIN^R  I.eAOER  . 
PUT    r IL£(SYSPRINr>    EDIT « • SGM  INAR   L EA DER :  •  , FACUL T Y ( 


114 


h  ACULVr   NOtTEAM  .SriMI.NAi?)  )  )  (SKI  P(  ?.)  .  A  ,COl.  {2^)  ,  A>  ; 
PRINT    THE    STUDfc'Nr'S   AI^CA   CP    St-'EC  I AL I /AT  ION 

PUT  i- n.F  ( srspn I N r )  eci  r  ( •  spi'-C  i  al  t2AT  ion:  • , 

SPtTCI  AL  I  ^A  r  t  ON_D  1 1;  r  (^PECI  Al.  I  ,tA  n  UN  )  >  <SK  IP  <P.  )  1  A  ,CQL(25  ) 

.  A ) : 

/*  ' 

PIUM    iNFQRMATlON   AQBUT    THK    STUDENT'S   P.^EVIOUS  FIELD 
EXPf.-RIENCIcS. 

PUT    FILEiSYSPR  tUT)    eDirCFIt-LO   E      F-R  I CNCE  S  »  t 

•CCMPLtrtD    TC;    date:  •  )  (  SKtP(2)  »A.SK.  IP.A)  ; 
OO    NLM    =    I    TO    7    WHI  LE  (F  I ELO  .SCHOOL  (NUM  )  0); 

PUT    FILEISY5PR1NT)    EDITCYR       •  ,  F  I  ELD  (  NUM  )  .  Yi?  .  •  OTR 

FIF'  O(NUM)  .  OTR  .•  LEVEL         .LEVEL    0  I  C  T  (  F  I  EL  C  (  NU  M  ) LEVEL 
},'S<"H;:0L    ='-,5CH00L    O  ICT  (F  I  t  L0{  NUM)  ,  SCHOCL  )  , 
•Tf^ACHE.^    =•  ,F  t  ELD(  tlUM)  .TEACHER  .' GRADE  GRADE  _D  IC  T 

(F  t  FL0(  NUM  )  .GS:  ADc)  )  <  CULI  25  J  .  A  ,F(  2  >  ,X  (3  )  .  Ai  F  (  I  )  ,  X(  J>  . 
£  ,  X  (  3  J  ,  A , COL (  J 0  )  , J    ( A , X ( 3  >  ,  A  .  X { J  )  )  )  ; 
PLT   r  ILE( SYSPH INT  )    EOITI'RCLE    = '  ) ( COL ( JO )  , A )  : 
00    N    -    I     rO   6    WHILE  IF    RGLEINUM.N)  -.-0); 

PUT    F ILE (SYSPRINT)    £ D  I T ( F_fiOL£_D I CT { F_ fiOL E ( NUM , N )  ) » 

(CCL(         .A)  ; 
END  ; 

PV.T  F  ILE  {  SYSPRINT  )  E  D  I  T  (  •  ST  REN  GT  HS  •  )  (  COL  {  3  0  )  ,  A  )  ; 
00   N   -    I    TO   6    WH  I  LE  ( STHENGTHSt  NUM.  N)  0): 

PUT  F ILE(SY5PR  iNT )  EO  I  T ( ST RE NG TH S_0 I C T ( S TR ENGTHS 
1 NUM , N)  )  i ( COL ( 4bJ  ,  A)  ; 

END  : 

PUT   FILE(SVSPRINT)    EDITt'NEEOS    - • ) ( COL { 30 ) , A ) ; 
OO  N    -    1    TO    6    VHIL:-:(  WEAKNESSESINUM  ,N)    -i=  0); 
PUT    F  ILE(  SYSPR  tNT  )    ED  I  T  (  «E  AKNE  SSES_0  IC  T  (  S»'E  AKNESSES 
<  >'UM  ,N)  )  )  (COLCVo).  ,  A)  ; 
END  i 

end; 
go  to  lgop; 

ENO  ; 

finish:  eno; 
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s  list:  p::ucc0u.^i£  OPT  I cjN '•; { ;s A .' N ) : 
/* 

OUTPUT 

DfiSCUIPf  ion:         /.L^HA.IET  ICAI.   LI5T   OF    Tf-AM  MEMOcWS  ANO 

THItli^   SOCIAL   iUCjriirr   NUMUEi^S  oy  sumina^^. 

A!_GOF.iTHM:  riUAD    Jtiii     INITiAL    OATA.      PROCESS    THIZ  MAIM 

!-Il.t    ilY    STORfNG    THC    NAME    AND  SOCIAL 
SECU'ilTy    NUMilEf;    OF    STJ0CI.IT5    IM  THE 
ScMlNA^S    i?.-;iNG   PROCiISbtU    I.N    TH£  STRUCTUaE 
STJ.'.L.       ON   ENCUONTbF^  I NG    TUt    ENJ   OP  THE 
MAI;-J    FILE,    50;vT    TH£    StMlNAUS    IN    X  Hli 
i.TH0CTUKl5    STClRC   AL^  HA  Uli  T  IC  A  LL  Y   OY  NAM!£. 
tUIMINATt   LXCh  3S    ULANKS    FROM   THc    NAMC3  t.N 
TML    STr-iUCTURt    STUR!:  .      PRINT    TH!-;  i^COOHSTEO 
TErtM   LISTS   aY  SEMINAR. 

NOTE  THi    FOLLOWING    OE CLARE   STATEMENT (S> 

INCL-UijED    IN    THL    PRJGRAM    NAKED   ALL    MUST  BE 
AUOEO    TO    THIS    PROGkA^I    P.UO.^    TO  EXECUTION: 
1.       THE    STATEMENT    LADELEO  ONE  WHICH 
CONTAINS    rut    STRUCTURE  PERSONAL. 

:^  4i1f-^*  r**  ■If*:)' IfV  4:^:*  ir^i'-i' 

*/ 

/* 

REAC    THE   RANGE    OF   THE   TEAM   NUMBEf^S.      THIS    RANGE  13 
USED    TO    DYNAMICALLY    CCNT'iCL   THE    STO.xAGE    ALLOCAThO  TO 
HIT.    FACULTY   NJ.    STQkE    AND  VALUE. 

*/ 

GET   FIL£(SYSIN)    ED  S  T  {  MI  N  .  MAX  )  {COL  (  I  )  .  2.  '  F  (  1  )  ,  X  ( >  )  )  ; 

oegin; 

UECLAHE 
/« 

INDICATOR   OF    TH£   PRINT   STATUS   FOR   EACH    TEAM.  */ 

ti  I  t  (i-t  in:  MAX  >  a  I T  (  o  . 

DICTIONARY   OF    THE    FACULTY   MEMBER'S   NAMES  ASSOCIATED 
WITH    THE    COO^iS   USED    FN   PERSONAL.  */ 
FACULTY!  id  0  )    CHARACTER  (14)    I  NIT  I  AL(  •  BERNARD'  ,  •  CURRAN*  . 
• OETURE '  .  • FEY '  ,  'GOODMAN'  t  • HIL_ I  ARC • ,  'JESTER '  , 
'  KI  NZe.R'  ,  >  LE  WI  S  '  .  •  LI  TCHEP'  ,  •  MART  INELLO  •  ,  •  NEv/COMB  •  , 
'OLSON  '  .  'PENLAND  '  ,  '  R!Jv»E  •  .  '  SERAPH  INt»  »  '  SHEA  '  ,  *  SM  I  TM'  i 
' T ISON* , ' W ILMOT ' ) • 

/* 

SEMINAR   LEADER'S    FACULTY   NUMHERS   BY    TEAM.  */ 

F  ACUi_  T  Y_NO(  M  IN  :  MA  X  ,4  3    FIXED  BINARY, 

/* 

NAME    AND    SOCIAL    SECURITY   NUMBER   OF    STUDENTS    IN  EACH 
TEAM    UY    SEMINAR.  */ 
1     STOr.EC  M  IN  :  MAX  ,4  ,35)  t 

2    NAMES    CHA^v  ACT  ER  (  as)  . 

2    SS_NO    CHARACTER{9) , 

/  k 

COUNTER   FOR    THE   NUMBER   OF    STUDENTS    IN   EACH  SEMINAR  OY 

TEAM.  */ 

VALUE!  M  in:  MA  X, )    FIXED  BINARY, 

CuK_aATE    ':HARACTE''Ma  )  , 

N_Tt:MP   CH.  RhCTER  (  VARYING, 

C:.D   FILE    KECa<D  SEOUENTIAL, 

SEVINARW    FIXLf;  lilNARY, 

TEAM J    FIXED    HI  NARY, 

I  TEMP, 

2    T_NAMES    CHARACTER (25) , 

a    T_SS_Nn    CHAx ACTER ( 9) ; 

/* 

INITIALIZE    STOPE,    VALUE   AND  FACULTY„NO. 

*/ 

STORE        '  0'  ; 

VALUE  =  o; 

FACULTY    NO    -t  O; 

/*  . 


ON   ENCOUNTER  IN  0   AN    ILLEGAL   SUOSCRIPT    IN   A  STUDENT'S 
RECORD,    PRINT    THE   STUDENT'S   SOCIAL   SECURITY   NUHOER .  TEAM 
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NUMiJCfJ,    Sf:MIN/.«   NkJMMKR    AMO   Tiil-:   TqTA_   Mi;miJ(£«  ok  SrUDf£NTS 
IN    THl  3  St.HtNAH. 

♦  / 

CN    SL/OSCKI  f^TPANlUi  fJCtJlN; 

r-o  r  KILL  (  SYSP-arir )  toi  t{  •  sunscsipr  ourijioe  legal'. 

•  OOUNOS'  .  '  .'iOC  O'liC^UO  -  ',S0C_5r:C  NU,<TCAM  =  '.TEAM, 
•S£MINAP.  =  •  ,  3hM  (  NAK  ,  '  VALU!-;  =  '  ,  V  A'-Uli  (  ft  AM  i  S  tM  I N  AH  )  ) 
(;i  A  ,       IIM  3  >  ,A  ,  A  •  X( 'i)  .  J    (  A  iK  (a)  ,  .X<  i)  ) ) ; 

GO  TO  finish; 
end; 

/* 

ON  ENCOUNTERING  THE  END  OF  THE  MAIN  FILE  TRANSFER  TO  THE 
LABICL  SORT. 

*/ 

ON   eNDKILC(OLO)    GO    TO  SORT; 

OPEN  F ILE { SY5PH INT)    L  INES I ZE {  I  30 ) ; 

/* 

READ  THE  CURRENT  DATE. 

*/ 

GET   FILE(SY3IfJ)    EOITCCUR   OAT  E  )  (  C  0L(  1  )  .  A(  3)  )  ; 
/* 

READ   THE   NUMBER   OF    TEAMS   TO   3E   PROCESSED.      THEN   F3?  EACH 
TEAM   READ    THE    TEAM    NUMBER,    THE    liUMOER    OF    SEMINARS   TO  BE 
PRQCESr.EC,    AND   THE    SEMINAR    NUMBER    A'4D   FACULTY  NUMQER 
OF    EACH    SEMINAR    TO    c3£  PRUCESSED. 

*/ 

GET    FILE(SYSIN)    EOITINO    CAHOS ) ( COL { I ) . F ( 2 ) ) ; 
DO    I    =    I    TO  NO_CAROS; 

GET    FILE(SYSiN)    E  O  I  T  (  TE  AM .»  .  LI  M  I T  .  {  SE  M I  N  AR*  ,  FAC  UL  T  Y  NQ( 
TEAM;*  .SEMINAR*)    DO    J   =    1    TO   L  I M  I  T  )  )  C  COL  (  1)  .  2  (Ftl), 
X(1)),'i    (FiU.X(4).F'.  2J,X(J))); 

end; 

/* 

PROCESS    THE    FILE   SEQUENTIALLY.      READ   A    STUDENT'S  ;^ECOr<D. 
IF    This    RECORD    IS    NOT    TO   .jE    PRINTED.    TRANSFER    TO   LOOP  TO 
GET    A   NEW   RECOP.O.       INCREMENT    THE    CORRECT   COUNTER  IN 
VALUE    BY    CNE.      STORE   THE   STUDENT'S    NAME   AND  SOCIAL 
£ECU."i  iY   NUMBEh    IN    Ti.E    CORRECT    POSITION    IN   THE  ARRAY 
NAMES • 

*/ 

loop:         PiEAD    riLEUT-.O)     I  Nro<  PERSONAL ) ; 

IF    TEAM    <   MIN    j    TEAM    >    MAX    THEN    G3    TO  LOOP; 
IF    FACULTY    NO  (  TE  AM  ,  SEM  I  TjAR  )     =    0    THEN    GO    TO  LOOP; 
VALUE!  TEAM.  SEM  iNAii)    --    V  ALUE  {  "'^A  M  ,S  EM  INAR  )    +  I; 
NA,VES<  TEAM  .SEM  INAR.VALU  EC  TEAM.  SEM  INAR)  )    -    LAST    ](     •,»    |  |- 

F  irst; 

SS_NG(  TEAM,  SEM  IN  AR,  VALUE'.  TEAM.  SEMINAR)  )    =    SGC_SEC  NO; 

GO  TO  loop;  " 

SET    BIT   TO    A   ■  I  •  (3    IF  THIS   TEAM    IS  NOT    TO   BE  PRINTED. 

SORT    THE    SEMINARS    IN    THE   AK>-!AY    NAME    ALPH  A  SET  I CALLY  BY 
NAME  . 

*/ 

DO    TEAM,?    =    MIN   TQ  MAX; 

8iT(TEAM«)    ^   FACULTY    NO(TEAM.*,l)    =0  5. 

FACULTY_NO(  TEAM,/ .27    -00    FACULTY   N0(TEAM*,3)    =    0  & 
FACUlTY_'N'J(  TEAM*  ,4)    -  O; 
IF    OU'.TE-aM*)    -    'I'B  THEN   GO   TO  T  END; 
00    SEMINAR*    ■-    1    TO  i; 

IF    KACULTV_NO(  TEAMAI  .SEMINAR*)    =   0    TH'.N  GO   TO   S  END; 

DO  I  -  i  TO 

DO  J  =  ifi  TO  js; 

IF    NAMES< TEAM*. SEMINARj, I)  > 

NAMLSI  TEAM//  ,SEMINAr.^(  ,  J)    VHEN    DO  ; 
Tl:MP    -    STORE!  TEAM*  ,SEM  INA.^*  ,  I  )  ; 

STURE1TEAM#,SEM  JNA--<#,  I  J    -    ST  OR  E(  TEAM  #  .  SEM  INA;i  # 

.J) : 

STQRE(  TEAM/* ,  SEM  INARrf  .  J  )    -  TEMP; 

end; 

END  ; 
end; 
end; 
END ; 
/* 

P!--IN1    A    TEAM   LIST    WITH    SOCIAL   SEC^iRTTV   NUMUEKS    FO^  EACH 
TEAM   REQUESTING    I^.       PRINT   ONE    T£A(1   Pt  <?  PAGE. 

♦/ 

DO    TEAM-*         MIN    TO  MAX; 
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Jp   i)lT{Tf;AM^)   =   'I'l}  THEN  CO  TO  oi.'Tan; 

/«■ 

PRINT   THE   UeAOC?    iNrORMATION  TOi    LACH  PAGii   GF  PRINT, 

*/ 

POT  file:(  r,Ysr-"- IMT)  eoiTtcur:  oa  r;f )  (  page  .  a)  : 

(n,'T    KILf-:  (  SYSP.J  INT  )  ZOIWS'Z', 

•GUT;juf  ohsCK !     ; ON  :  ALin!Ai;t.  (  i o-".l  lMst  of  tcam 

'MuML!L.V3   ANC    TifLIR    JiOCIAL    St.CUUiry    NUMU(-.?3    Liy  ». 

■  SE-M  INA^i'  .  '  TKAM  •  ,TEAM«J  (  3K  IP  I.A.  bK.1  P,  J   A  ,  Si's  1 1>  »  A  ,  X(  2  J  t 

r( a)  > : 
PUT  SK  IPC io> ; 

NCNOLANK    -  O; 

00  stMiNAan*  =  I  TO 

IF    hACULTY_NOCT!-:AM«  .SEMUMU*)    =    0    THEN   GO   TO  INNEK; 

NCNbLA.-lK    =    NUNBl.ANX     »•    1  < 

/* 

FPifiT  Till.:  semima;?  leaoer's  name. 

*/ 

PUT   F ILE (SYSPR INT )    EO I T ( FACOLT Y ( F A C UL T Y_NO i TEAMrf , 
SEM  iNAr-.//  )  )  )  (  X  (  1  0)  •  A  )  ; 
INNES:  ENO; 

PUT    f- ILE(  SYS  Pf?  INi' )    EDrr((»  _      _   _  •      03    I    =  I 

TQ    N(:NOLA^;KJ)  (SKiP(  0>  .INONOLANKiTxTToT.A))  ; 
PUT  SKIP(^); 

/* 

P.-Ii\'T  tJY  SEMINAR  IN  ALPHABETICAL  □h?DER  BY  LAST  NAME, 
THE  NAMES  AND  SOCIAL  SECURITY  NJM3E^S  OF  THE  SEi>HNAR 
i-lEMi3EHS. 

*/ 

DC   NUM   =    1    TO  35; 
pijT  ?,KIP; 
KOUNT    =    10 : 
DO   SE.-'.INAH*         I    TO  *J 

JK    FACULTY    NO  (  TE  A  Mrf  ,  SF.M  I N  A       )    =    0   THEN   GO  TO 
IN^■itl<2: 

IF    NAMES!  TEAM/.*  ,SrM  INAP.y  ,  NU.M)    =    >0'    THEN   DO  ; 
KOUNT    --    KOUNT    +    ^^ ', 

GC    VO    INNERS;  J 

END  ; 

ELIMINATE   EXCESS   BLANKS   BETWEEN  THE   STUDENT'S  LAST 
NAME    AND   THE  IN  NAMES. 

*/ 

N..TEMP    -    SUFJS  T;<(  NAWES(  TEAM*  ,  S  =  M  INAK-K  ,NUM  )  ,  1  , 
INDEX  (NAMES  (  TcAM,».SEM  INAi^;// ,  NUM)  ,  •     •)    -    I)  j| 
SUiiSTK  (  NAMr.5{  TEAM>  .  S  EM  I N  AR ,  NUM  )  t  i  NDEX  (  i  JAM  ES  { 
TE  A  M  ;V  ,  SE  MO.  A)^       NU.M  >,'.»))  ; 
PUT    F  ILt  (SYSP  Mr.'V  >    ED  I T  {  ST  O    E  .  SS   NO  (  TEAM  ^  ,  SE  M  I  MA  R  .<  ,  NUM  )  , 

(j.Ttsip  J  {  x(  KGurrr  )  .  A  ,X  (5  )  ,  A)  ; 
kount  =  ^4  -  ^ehgthcn  temp); 
end;  ~ 
end; 
Enc; 
end; 

ENOi 
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/* 

program:  team 

SriSOjIpT  ION  :        ALPt.Al'.nT  tCAL   LIST   OF    THE   TEAM  MEMOERS  BY 
S'l.MINAHl  , 

AlGOHIiHM:  RPAO    1H£    ti^ITlAL    OATA  .      PROCESS    TtlE  MAIN" 

Fll  E    9r    STORING    THE    NAMES    01=  STUDENTS 
THE    SF.M<KAhiS    bEINC".  PPOCESSEO    IN    THE  ARRAY 
NAMES.       CN  ENCEUMERINO    THE    ENO  (IK 
THE    M/VIN    f'JI.E,    SOi^i    THE    SEMINARS    IN  THE 
THE    AtiKAr    NAMES    ALP  HA  UE  T  I  C  ALL  Y  . 
ELIMINArE    EXCESS    OLANKS   ERQM    THE    NAMES  IN 
THE    AhPAY    NAMES.      PRINT    THE  REQUESTED 
TEAM    LIST    t3Y  SEMINAR. 

NOTF  THE    FCLLCWING    DECLA:;E    S  T  ATEMEfJT  (  S  ) 

INCLUDED    liM    ThF    Pfti^oRAM   NAMED  ALL    ".UST  BE 
ADJED    TO    THIS   PiJOGRAM    PRIOR    TO  EXECUTION: 
I.      THE    STATEMENT    LAi3ELED   ONE  WHICH 
CCNTAIN3   THE    STRUCTURE  PERSONAL. 

t**-^***  *■■»**■♦**♦*♦***  **•***'*■«**■''********** 

*/ 

/* 

READ    THE   RANCE   OF    T5-E    TEAM    NUMBERS.      THIS   RANGE  IS 
USED    TO    DYNAMICALLY    CCNT.ilOL   THE    STORAGE    ALLOCATEO  TO 
31 r.    FACLLTr    NO.    STCRE    ANC  VALUE. 

*/ 

GET    FiLLtSYSIN)    ED  I  T  <  MI  N  .  MAX  )  <CCL  <  I  )  .  2    (  r  (  1  )  ,  X  ( 'V  )  >  )  : 

begin; 

CECLARE  . 

iNCICATCR   OF   THE   PRINT   STATUS   FOR   EACH  TEAM.  */ 

3  1  T{  MIN  ;MAX)    U  I  T(  U  . 

/* 

DICTICNARY   OF   THE    FACULTY    MEMBER'S    NAMES  ASSOCIATED 
WITH    THE    COOES   USED    IN   PERSONAL.  */ 
FA  CULT  Y  <  20)    CHARACTER  (  1         IN  I  TI  AL(  •  BERNARD  '  ,  'CURRAN*  > 

•  DETLT^E  '  ,  'FE  Y«  ,  •  G'JuDMAN'  ,  •  H  I  LL  I  A RO  •  .  '  J  ESTER  •  . 

•  i<  I  NiER  •  ,  '  LE'.»  I  S  •  ,  •  L  t  TCHER  '  .  •  MART  INELLQ  '  .  •  NEViCOMS  •  t 

•  QLSCN  *  .  «  PEKt-ANO  •  .  .»  ROWb'  •  •  SESAPH  INE«  t  •  SHEA  •  .  'SM  IT H«  • 

•  r I  SON*  ,  ' WILMOT • )  , 

/* 

FACULTY    NUMBERS   OF    THE    SEMINAR   LEADERS   BY   TEAM.  */ 

FACULTY_NO(M  IN  :MAX  t-^)    FIXED  BINARY. 

/* 

NAiVES    OF    THE    STUDENTS     IN    EACH    SEMINAR   BY    TEAM.  */ 

NAWE  SC  MIN  :MAX  , ,  J5)    CHARACTER!  25)  t 

/♦ 

COUNTER  FOR   THE  NUMBER   OF   STUDENTS    IN   EACH  SEMINAR  BY 

TEAM.  */ 

VALU?:  (  M  IN  :  MAX  .  A  )    FIXEC  BINARY, 

CUR_DATE    CHAPACTEiUal  . 

CLD   FILE    RECORD  SEQUENTIAL. 

SEMINAR*    FIXED    H I NAUY , 

TEAM*    FIXED  BINARY. 

TEMP    CHARA  ;TER(2oJ  VARYING! 

/* 

INITIALIZE    STORE.    VALUE   AND   FACULTY  NO. 

*/ 

NAMES    =    • 0» ; 

VALUE    =   0 ;  . 

FACLLTY.NO    =  05 

/* 

ON    ENCOUNTERING    AN    ILLECAL    SUBSCRIPT    IN    A  STUDENT'S 
RECORD,    PRINT    THE    STUDENT'S    SOCIAL    SECURITY    NJMBEt"  .  TEAM 
NUMBER.    SEMINAR    NUMBER    AND    THE    TOTAL    NUMBER   OF  STUDENTS 
IN    THIS  SEMINAR. 

*/ 

CN    SUBSCR IP TRANGE  BEGIN; 

PUT    E ILE ( SySPR  INT  )    ED  I  T (  • SUHSCR  I  PT   OUTSIDE  LEGAL'. 

'  iiOLND  3  •  .  •  SOC_SHC_N0  •.:iOC_3EC  NO. 'TEAM  -  '.TEAM. 
•SEMINA!;  •  ,ScM  INA  R  ••  VALUE  -  •,  VALUE  {  TEAM  .  SCM  INAR  )  » 
(2   A  .  SK  IP ( 3J  ,A  ,  A  ,Xl S)  ,3    ( A , F  ( 2  )  , X ( b ) }  )  : 
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'oU   TO  i'tNOHJ 
tNO; 

/♦ 

CN  ENCOUNTER  IHG    fflC   ENR    OF    TUll   MAIN  flLK    THANSFCR  TO 
50f^  T  . 

V  *^ 

CN    t^NOFILetCl.D)    GO    TO  SOfJT: 

/  + 

iTEAO    TH£   CCHC(EiNr  DATE. 

GET  FiLe(sysiN)  E;Dir(<:un  cate  )  (ccl  ( i  ) .  a{  a) ) ; 

RiiAO    TMfc    NUMUER   OF    TEAMS    TO   BE    PPOCESSHO.      THEN   FUR  EACH 
TLAM    READ    THE    TEAM    NUMUEr!,    I'Ht    NUMBER    OF    SEMINARS    TO  13F 
PROCcSStO,    ANO   THE    SEM[NAr?    NUMBER    AND   FACULTY  NUMOHa 
OF    EACH    SEMINAR    TU    6E  PROCESSED. 

*/ 

GET    FILfc{SYSIN)    EnlTfNO    C AROS ) { COL ( 1 ) , F ( 2 ) ) ; 
OU    I    =    1     TO    N  J  CA,«DS: 

GET    FlLE(SYsfN)    E  U  I  f  <  TE  A  M,'>  ,  U  I  M  I  T  ,  (  SE  M  I  N  AR.a  ,F  ACUL  f  Y  N0( 

TEAM*  .SEMINAR,*)    OQ    J         I    TO   L  1  M  I  T  J  )  (  COL  (  I  J  ,  2  (F(T). 

X{  O  )  ,4    (F(  1  )  ,X(  A)  ,F{  2)  ,X(3)  JJ  ; 

END  ; 

/T 

PROCESS    THE   FILE   SEQUENTIALLY.      READ   A   STUDENT'S  RECORD. 

Ih     THE    RECJRU    13   NUT    TO    HE   PRINTED    TRANSFER    TO  LOOP 
TO    GET    A    NEV,   HECU-D.       INCREMENT    THE    CORRECT    COUNTER  IN 
VALUE    BY    ONE.       STORE   THE    STUDENT'S    NAME    IN    THE  CORRECT 
POSITION    IN    THE    STRUCTURE  MAME-S, 

*/ 

lccp:      read  file{old)   iiito(pep.sonal )  ; 

if  team  <  min   j  team  >  max  then  go  to  loop; 

if  facul ty_no (  team  .semi nar  )  =  0  then  go  to  loop; 

value!  team  ,  sem  inar  j  =  v  alu  e  (  t  e  am  ,  s  em  in  ah  )  1; 

names! team, seminar, valuecteam. seminar) )  -  last  11  h 

FIRST;  I  i       »       I  i 

GO    TC  LOCP; 

/* 

SET    BIT    -(O    A    M'O    IF   THIS    TEAM    IS  NOT    TO    t3E  PRINTED. 
bURT    THE    SEMINARS    JN    THE    STRUCTURE    NAME    A  LPHAi;  ui  !  CALUY 
0  I       A  M  E  . 

SORT:         CO    TEAf-«#    ~    MIN    TO   MAX:  *^ 
QITiTEAM/K)    =    FACULTY    Na(TEAM*, 15    -    0  & 

FACULTY..NJ(TEAMi*,2T    -   0   6  FACULTY   N0(TEAMrf,3)    =   0  6. 
t-ACULTY    N0(TEAM*,4X    -  o; 
[F    ti  I  r  (  TEAM*  )    :--    M'O    TFEN   GO   TO   T  FMO; 
OO    SEMINAR//    -    J    TO    4  > 

IF    FACULTY„NOi  TEAM-y  ,  SEM  INAR,*  »    ~    o    THEN   GO   TO    3  END; 
CO    I  —   I    TO  34 ;  ~ 
DO    J    -    in    TO  I'^'t 

IF    NAf-iES(  TEAM*.  SEM  INAR,*,  £  )  > 

NAW:;S  (  TE  AM  *  ,  SEM  IN  AR/;'  ,  J  I    THEN    DO  ; 
TE  -;F    -    NA.VhSC  TEA.v/ ,  SEM  INAR./,  I  )  ; 

NAMES  (  TEAM// ,  SEM  INAR,V,  U    =    NAME  S  (  TE  AM  *  ,  SEM  £  HAS  # 

•  J ) ; 

names!  team,«  ,seminar«  ,ji  -  temp: 
end; 

end; 
end; 
5_cnd:  end; 
v„end:  end; 
/* 

print    a    TEAM  LIST   FOR   EACH   TEAM    REQUESTING    IT.  LIST 
ONE    TEAM    PER  PAUE. 

DO    T£AM»    -    MIN    TO    MAX;  *^ 
IF    OITITEAM,*)    =    M'!!    THEN    00    TO  OUTER; 

PRINT    THE    HEACER     INFORMATION  FOR   EACH   PAGE   OF  PRINT. 

PUT   FILEISYSPRINTJ    EDITICUR    D  A  T  E  )  (  p  A  GE  .  A  )  : 
PUT    FILE!  SYSPRlNf  J    EO  IT  (  •  T  I- A  fl  •  , 

'OUTPUT    Of- SCR  [!>r  (Un:     ALI'HAdF  T  IC'L    I   1ST    OF    TF  \M  • 
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PUT   SK IP { 1 0) ; 

NCNLIUAN!^    --    0  ; 

DC    Sl^MIMAU*    -    I    10  M 

ir   f-ACULTY   NU<  I  I- AM,<  ,5£MirM(J,.»  J    "    0   THl^N  CO   TO  INNER; 

NrjIJOLANK    =~NCNOl.ANK    +  1. 

/* 

PHINT    TM£    SEMINAR   LEADER'S  NAME. 

*/ 

PUT   F  ILF.  {  SYSP^  I  NT  )    C  0  I  T  {  F  ACUL  T  Y  (  FA  CULT  Y_NO  (  T  EAM  *  , 
SC-.M  INARK  )  ))tX(10),A); 
INNliRt  tNO: 

PUr    F  ILE  {  SY5PR  INT  J    EDIT((i'  •      DO    t    =  1 

TO    NCNdLANK)  )  (5K ;P(  C)  •  ( NONOLANK)  (X ( 1 0 )  >A) I  » 
PLT  S!<.Ir(2): 
/* 

PRINT    EY    SEMINAR    IN   A  L  PHABf- T  I C  AL    ORDE!?    UY   LAST  NA.ME 
THE    NAMES   OF    THE    SEMINAR  MEMUERS. 

■»/ 

OQ   NUM    =    I    TO  35; 

POT  skip; 

KCUNT    -    10 ; 

CO   SEMINAR^(   =    .1    TC  *; 

IF   F  ACULTY_NO{  TEAMiV  ,SEMI  NAR*  )    =    0    THEN   GO  TO 
INNER^ ; 

ir    NAMES  (TEAM      SEM  INAR#.NUM)    =    'O*    THEN  00; 
KOUNT    -    KCUNT    t-    a4  ; 

go  tu  inner 2; 
end; 

/« 


ELIMINATE  EXCESS  I3LANKS  BETWEEN  THE  STUDENT'S  LAST 
NAME    AND   THE    ',»     IN  NAMES. 

*/ 

TEMP    -    SUHSTR  (  NAMES!  TEAN,/ ,  SE  VI  NA  Rrf  .  NUM)  ,  I  . 

I  NDEX  {  N  AMES  (  TEAM  •/ ,  SEM  IMAR«  ,NUM  )  I  •     •)    -    I)  || 
SUHSTR  (NAM  £S(  TEAMa  .SEM  INAR/<,NUM)  ,  INOEXINAMGSt 
TEAMa  ,  SEMI  NA  R  V  .  ,NU  V )  .  '  .  M  )  : 

PUT    F  Il_E  (SYS;-'R  INT  )    ED  IT  {  TEMP  )  (  X  (  KOUN  T  )  ,  A  )  ; 

KOUNT    =    ^t^    ~    LENGTHC  TEMP)  ; 

IKNER^:  end; 

end; 
cuter:  end; 

ENO; 

finish:  eno; 
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update:  p'^ncsouiJE 


0!'  rt  ONSC  MAIN  J 


prcgfam: 

OUTPUT 

dTlSCiupt  IGN ; 


UPOATf! 


A   HS1;NCj   Lit    SOCIAL    S[£CU^^.ITY   NU.Mni£9  OP 
TllK    Ci.u    ANO  CCNTCNTS    OF    ALL  ITEMS 

WHICH   HAVl:   OEtN  UPOATtO. 

ALGOHI  rUM-,  KGAiJ    TH!i    INITIAL    DATA.      PROCESS    THE  MAIN 

FILf^  SCUUtNT  I  ALLY  .  JPDATH:  THE  iPECIPlEO 
R'iCOAUS    ANO   8UILD   A   NEW    UPUATED  MAIN 

FiLe. 


.-!0T£  Trie    FOLLO'^ING    DCCLARt    S  T  A  r  F.  MC  NT  (  S  ) 

INCLUDKD    IN    T  HP.    PROGRAM   NAMED   ALL   V.UST  BE 
ADDED    TO    THIS    P  R  C  C  R  A  M   PfilCR    TO  fcxeCl/TION: 
1.       THE    STATEMENT    LABELED   ONE  WHICH 
CONTAINS    THE    Sf^UCTURE  PERSONAL. 


*/ 


ENC   OF  FILE 


I  INDICATES  THE 
BEGINNING  OF 


DECLARE 
/* 

UIT    rtHEN    SET    TO   A    M'B    INDICATES    THAT  AN 

HAS    BEEN    ErjCO'JNTERED    ON   AN    INPUT    DEVICE.  */ 
UIT   GIT(l)    I  Ml TI AL( »  0 'U)  t 
/  f 

AN   ENTRY    PCI  NT,    FOq    t N3TANCE    ENTRY  (1  J, 
NUMrjER    OF    THt   POSI  TION    PRtCEED  ING  THE 

THIS    SUI3STANTIVE    AREA    IN  LEARNING    A.  */ 
ENTaY(11>    fixed   BINARY    I N I T I AL { 0 , 6  ,  1 9 ,  3 1  , A  1 , 50 , 56 , 66 . 
G2.a7,95)» 

/« 

AN   ARRAY   OF   LAUELS    WHICH    IS    INITIALISED    70    THi  UPDATE 
ROUTINES    f-an    THE    VARIOUS    ITEMS.  */ 
Tf.  ANSFE.^  (  3b  )    LAtiEL    I  N  !  T  I AL  {  N0_  1  .  N0_3  ,  NO    3rNn_4,Na  5. 
N0_6  .NO  _7  ,  NO  _a  .  N0_'J  .NO    1  0  ,  NU_  I  1  ,  Nrj_  I  a  T  NO    1 15  .  NO  T  *  , 

^o_  15  ,No_i  6 ,  Na_i7  :N0_  I  a  .NO_i  9.  No_i:o  .rjo  ^  i  ,no_25. 

(^0_<?3  ,  NO_2'4  ,  N0_^5  ,N0_<'.6  ,  NO  27  ,NO_ZS,  N0j29,  N-J^JO  , 
NO..  J  1  ,  Na_3*:  ,  N0_  ,NC  J'v  >  NC^J  S  .  N0__  J  6  ,  N0_3  7  .  NO  JO. 
NU_j9  J  N0_'-»  0  ,  NO  ^'H  ,  UC_<i:?.  ,  IJ0_4  J  ,  NO    A^'j,  N0_4  5 ,  NO'~4  6  . 


NO_''i  7  ,N0_ 


NO 


.NO 


-*-t!  ,N0 
■67  .  no" 


49 

58  I 


NO 


50  .NO 
5  9  ,NO 


I  .ND 

6  0.  NO 


rvC_6'i  .  Nu_6  5  <  N0_f>6  .  N0_6/  ,  N0_6  ri  ,  N  j' 


Na_72 .NO  7. 


73 

a  J 


NO 

no" 


7  0  , 
3  4  I 


r.o 

no" 


.52  .NO. 

6  I  f  NO 
b J ,N0" 

7  7  ,N0 
-Jb,  NO 


.{*)    FIXED  BINARY. 


BINARY) 


'  J  .  N0_7A  ,NC 
N0_aC,N3    0  1.NO_32,NO 
AlxHAU    FlX.no  UINA,?Y, 
ACTIVITY*    FIXED  BINARY. 
CL?^_DATE    CHARAOTEi^Ia  )  , 
A«h.WY   ENT^Y    (FIXED   01  NARY 

FIXED  QlNAnY?, 
LETTER    ENTRY    ( CH AR ACT ER ( * ) , F I X ED 
LOC  LABEL. 
(NEW, OLD)    FILE   RECORD  SEQUENTIAL, 
NUMBER    ENTRY    (FIXED   BINARY, FIXED  OINARY), 
PCS    FIXED  BiNARY, 
SS    NC    CHARACTER{q ) , 
SrURE„C    CHARACTER(40)  VARYINO, 
SrORE_A(ia)    FIXED  BINARY, 
I    STORE_S(r">l  , 

2    S_CCURSE_NO   C H A R A CTER ( 6 ) , 
2    S_hhS   FIXLD  (3INA;?Y, 
2    S    GRADE    CHARACTEia  1  )  : 
OPEN   FILEI  3YSPRINT)    L  I N  E  S  I /.E  (  1 30  )  ; 
/* 


,53  ,  NO. 
62  ,  NO 
70. no" 
78  ,N0 
66)  , 


54  ,N0 
63, 
7 » • 
.79.. 


55 1 


CN    ENCOLNTEKING   an   end    CF   FILE  ON   OLD,    WHICH  INDICATES 

THAT    THERE    Ai;  E   NO   MORE    RECO'^OS  TO   BE    UPDATED  IN    THE  MAIN 

FILE,    bET   Bir    TO    A    'I'd.      COS^Y  THE    REMAINING  RECORDS 

ONTC    THE   NEiV    MAIN    FILEi  <-ir.v,u,^u3 


CN    ENDF ILE ( SYSI N )  BEGIN; 

IF    BIT    =    -l>a    THEN    LO    TO  FINISH; 

01  r  =  • I • b; 

more:  read    FtLE(CLO)    I  NTU{Pi;f;SONAL)  : 

WRITE    l-l!.E(NE!,0    l-ROM<  PERfjOilAI  )  ; 

GO  TO  more; 
end; 

/* 
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O.N   ;;NCGUr;TiiR  INO    VHci    aisO    OF  A   fJAGn  OF  PH'MT,    PRINT  fXE 
HEADKH  SNFOPMATION. 

♦/ 

ON   ENDPAGE  (  SVr.PR  iNr  5    GEO  IN: 

POT   f-  ILS  (  5YSPM  NT  )    1.0  IT  <  CUR  _0A  rC  ){  PAGCt  A  )  : 
PUT    F  lunc  SYSPRIfJT)    HD  1  r  (  '  UP.jATt:'  . 

•ourpur  i^tscp :  p  r  IOC  :  a  lii'ting  by  sociai,  r>f:cu<UTY*, 

•  NUI.'Ufr?    OF    THH    OLC    AND    NLW    C.JNTMNT5    Q."^    ALL  IftMS't 

•  rtHli.H    HAVh   li  f.  f:  N   O  PD  A  TE  0  •  )  (  IJK  I  P  .  A  ,  SK  I  P  ,  3  A); 

PL  r  I- iLi:(  SYSPP  INT  )  CO  I  r  ( •  sac !  AL  sccuniry  NO'.'irEM'. 

•PrJEVIOLS    CQN  rtlNTS  •  ,  '  PRESfNT  CONTLNr^*) 

(  SK.  IP  {  6  )  .  A  ,(;0L{  ^3  )  .  A  ,  COL  (  36)  .A  .COL  (  05)  ,A)  ; 

POT   H  ILG  (  SYSPK  I  NT  )    EOrT(*_    •»•  •. 

•  ■  ^    ^  ''  •) 

(SK,  IP(0)  ,  CCL  I  I  )  ,  A,CGl"(25  )TA,COLrjST.A  ,CUL(  (?5>  t  A)  ; 

ENO; 

ON   ENCCUMERING    />    SUBSC "  I PTR  AN«H    ffK;^OR,    PRINT   AN  ^R«OR 
MESSAGE.       T«ANSPEll    TO  ODTAIN    A    NEW    UPDATE  NUMBER. 

*/ 

CN    SLr:-SCIU  PTP.ANGE  SEGifJ: 

PLT    F  I  LE{  SYSPFi  INT  )    ED  I  T  (  •  SUO  SC  R  I  PT  •  )  (  S  K  I  P  ( 0  >  •  A  )  ; 

GO  TO  next; 

ENO  ; 

/* 

CN   E^.CGU^TER  ING   A   CONVERSION   EPRO'i  ,    PRINT    AN  ERROR 
MESSAGE.       TRANSFER    TO   OUTAIN   A   NEW    UPDATE    NUMOErl  . 

*/ 

ON   CCNVERSION  BEGIN; 

PUT    F ILE ( SYSPR  INT >    EO I T < • CON VERS  I O N •  ) ( SK  I P t 0 )  . A)  ; 

GO  Tc  next; 
ENO  : 

/•* 

CN   ENCOUNTERING   AN    END    OF   FILE   ON   OLO,    WHICH  INDICATES 
THAT    NO    MGRS:    RECORDS   tlXIST    1  ,N   THE    MAIN   FILE.    SET   lilT  TO 
A    M'ti.      P:<INT    Thii    r>CCfA.L   SECURITY    NUMBERS   OF  THE 
REMAINING    R;7CQR0S    TO    «E    UPDATED    WITH    THE  MESSAGE 
•MISSING   FROM    MAIN  FIL.I.' 

♦  / 

CN    ENDFILE(OLD)    BEGIN;  - 
IF    HIT    -    »1»B   THEN    GO    TO  FINISH! 
31  T   -   •  1 ' b; 

NOTE:  PUT   F ILE ( SYSPR INT  )    ED  I  T {  ' M I S S I NG   FROM   MAIN  FILE') 

(CCL {25 ) , AJ : 

AuVANCE:       GET    F!LE(SYSIN)    E  O  I  T  M  TE  M  )  (  SK I  P  ,  F  (  ;i  )  )  ; 
!  F    I  T  ;^  y    --    9  9    T  HE  N    DO  i  " 

GET    FILEiSYSIN)    E  D  i  T  (  S  S_NO  )  (  SK  I  p  ,r  (  ;.J )  )  ; 

PUT   FILE!  SYSPR  INT)    EOIT(SS    NO  (  S  .>  1  P  (  2  )  ,  X  ( 'V  )  ,  A  )  ; 

GO  TO  note;  ~ 
END  ; 

GO  TO  advance; 

ENC; 

/.* 

RE AC    THE   CURRENT  OATS. 

*/ 

GET    FILEISYSIN)    CO  I T { CU R_C ATC)  { CQL ( 1  )  ,  A { 0 ) J ; 


PRINT   THE   HEADER    INFORMATICS  FOR   THE   FIRST   PAGE  OF 
PR  INT. 

PUT    FILE( SYSPR  INT)    EDIT (CUR   O A TE ) ( PA GE  , A ) ;  *^ 

PUT    F ILE {  SYSPR  INT)    E D I T  < ' UPO AT E '  , 

'QUTPLT  0E5CK IPTI CN  :  A  LISTING  BY  SOCIAL  SeCURITY't 
'  NUMHER  OF  THE  OLD  AND  NEW  CONTENTS  OF  ALL  ITEMS', 
'     rtHICH   HAVE    BEEN    UPO  ,i  TED  ■  )  (  SKIP  ,  A  ,  S  K  IP  ,  3  A); 

PUT    F  ILE(  SYSPR  INT  )    ED  IT  (  •  315C  i  AL    SECURITY  NO't'ITEM*. 
*PRi:vli:U5    CONTENTS'  ,'  PRESiiNT  CONTENTS') 

(  SK  IP(  6)  .A  ,CUL  C  .JS)  ,  A  .COL  (  J5)  .A  ,COL  (  35  )  .A)  ; 

PUT  file(sysprk;t)    eoit(«  .  ,._  t, 

/  'c'^'-'^Saj'TATcoL  .A) ; 

READ   AND   PRINT    THE    SOCIAL    SECURITY    NUMbEH    OF    THE  MtXT 
RECORD    TO    GE   UPOATEO.  • 

rrji.LOw:  get  f  ilei  sysin)  fditiss  no  (  col(  n  ,  a     > ) ;  *^ 

PUT    FILE<3YSPRlNrj    E D  I  T < SS„NU )  ( S K I P {  2 )  ,  X ( 4 )  ,  A )  ; 


}?.3 


/* 

riSAO    A    RECOHO    FnOA    THti    MAJN   |-  lUK  . 
SKARCh:   RhAO   f-IueCQLD)    INrO<Pt.".l?SL)NAL)  ; 

/« 

IF  Tuf-:  WECURO        i3[^  updatho  has  N;)r  ykt  Btt-:N  i-ounj  in 

THE    MAIN!   (-'ILE.    COP  V    THE    iH.-;w   Rl".CQRO    ONTO    THii    NliW  MAIN 
F  tut-  . 

check:       if   PfTRSO.NAL;  G0C_SEC_NG    <    5S   NO   THi£N  DO; 
wniT£   FIL!i(New)    FROivlI  PEPSGNAU  )  : 
GC    TO  SEAf-iCH; 
f:NO: 


IF    THE    qeCORO    TO    OE   UPCATIHO   DORS   NOT   EXIST    IN    THF  MAIN 
f-lLt,    PKINT    THt    SOCIAL    SECUR  M  Y    NUMLU-R    WITH    THK  MESSAGE 
•MISSING   Ft?OM    MAIN    F  ILei  ,  •       fiHAD    THE    REMAINING   CARDS  IN 
THIS    RECOPO.       THEN,    «£Ai;    AND    PRfNT    THE    SOCIAL  SECUf?lTy 
NUMBER    OF    THH    NEXT    RECO,?iJ   TO    OE  UPOATEO, 

*/ 

IF    PERSONAL . SQC_SEC_NO    >    3S    NO   THEM   UO ; 

PUT   FILc(  SYSPKINT)    ED  1  T (  • M I SS I NG   FROM   MAIN  FILE') 
(COL ( 26) ,A ) : 

pass:  GET   FIIE(SY5IN)    G C ! T I  I T EM )  ( SK I P , F( 2 ) ) ; 

IF    ITEl'i    -1=   99    THEN   GO    iO  PASS; 

ELSE  do; 

GET    FILE! SYS  IN)    E C  IT ( S S_NO )  ( COL {  1  )  , A ( 9  )  )  ; 

PLT  FILE(  SYSPRINT)    EOIKSS    N  0)  (  S  K  I P  (  2  )  ,  X  (  A  )  ,  A  )  ; 

on  TO  check;  ~ 
end; 

end: 

/* 

READ    THE    UPDATE    NUMBER    OF    THE   NEXT    ITEM    TO    BE  UPOATEO. 

next:      get  FiLEis/siN)  EDI  T  (  FT  EM  j  ( SK  in ,  F(     )  :  *^ 

PUT    SK IP( 2) ; 

IF    ITEM    IS    EQUAL    TO   NINETY-NINE,    THu    F.NO   OF   THE  UPDATES 

FOR    A    STOOtNT    RECORD   HAS    BEEN   REACHED.      COPY  THE 
LPLIATED    RECCRO    ONTO    THE    NEi^J    MAIN    Fll  E. 


IF    ITEM    =    99    THEN  OO: 

v^RITE   FILE(NEW)    FRC.M(  PERSONAL  )  : 

GO  TO  follow; 

E  ND  ; 

/* 

SET    LOC    AND    TRANSFER    TO    THG   CORRECT    UPDATE  ROUTINE.: 


LOC    =    TRANSFER (  ITEM)  ; 
GO    TG  LOC; 
/* 

UPCATe   TFE    SOCIAL   SECURITY   NUMOErT    OY   CALLING  LETTER. 
NO_i:         CALL    LEVTERtSOC    SEC  NOi-iJ; 

UPDATE  THE  COMPLETE  NAME.  PRINT  THE  PREVIOUS  AND 
PRESENT   CONVENTS   OF    NAME.  >-kuviuu:>  anu 

N0_2:         PUT    FILE!  iYSPRlNT)    ED  I T ( I TEM ,N A ME )  ( C OL { 26 )  , F {2 )  . X ( 7 )  , 3*f 

''-j[jFn.r.(SYSIN)    epiTlNAVE)  (X(J)  ,  A(  14  ).X(  1  J  ,A(  10),X(:5J  , 

PUT    MLEISYSPRINT)    £  0  I  I  ( N  AME  )  (  X  (  G  J  ,  J  (A,X(2))); 

GO    TO  NbXT; 

/♦ 

UPDATE    THE  LAST  NAME   bV   CALLING  LETTER. 

ng_j:      call  LCTTEaiLAsr, 14) :  •  *^ 

/♦ 

UPDATE    THE  FIRST   NAME  OY  CALLING  LETTER,  ' 

N0_4:        CALL  LETTERIFIRST, 10) ;  *^ 
/  * 
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UPOATe    THE   MtOOLE   NAMG    \)Y   CALLrMG  LETXtlR* 

*/ 

NO   5:        CALL   LETTER (MI ODLE , 1  A )  ; 
/» 

UPDATE    Tt-.C    COMPLETE    PEK.MANENT    AODPCSS.      PRINT  THE 
PREVIOUS   AND   PRESErJT    CONTENTS    Of"    PCRMANCNT    ACORESS  . 

*/ 

NO    6:         PUT    EU-E  (  SYSPR  irJT  )    t;  C  I  T  (  I  T  EM  ,  PER  M    ADDR. STREET. 

PERM    AI3D  >  =C  I  ry  >  (  C  nL( !)  >  ,F  ( <i  >  .X  (ij  )  ,     (  A  ,X  (2  )  )  > ; 
STCl^E    C    -    PERM_ADDR  .  Sr  A  TE    |i     •       '11    P  EF- M_  AOUR  .  /  I P  J 
GET    fTlE(SYSIN)    EIMT(PERM    AODR  )  <  X  (  3  )  ,  A  (  2  0  )  ,  X  { '>  )  .  A  {  20  »  , 

X  (  5  »  ,  A  (  2  )  .  X  (  3  )  ,  A  {  5  )  )  V 
PUT   E  ILE  <  SYSPi^i  I  NT  )    EOir<PEHf(   ADOR  .  S  T  REE  f  .  PERM  ADDP..CITY) 

(  X  (  7 )  ,  2  (  A  ,  X  ( i." ) )  )  •; 

PJT    F I LE < S YSPR INT )    EQITISTO^E   C  ,  PERM_ADOR . STATE . 
PtSM^ACDR  .  ^  IP  J  (CQEl-i'j  )  >  A  ,  X  (4  1  )  ,2    (  A  ,  X(  2)  )  )  ; 

GO  TO  next; 

u>>oate  the  street  :n  per.vanent  address  by  calling 
letter. 

N0_7:      CALL  letteriperm  aodr. street. 20) ; 

UPDATE    tee   city    IN   PERMANENT   ADDRESS   t-Y   CALLING  LETTER. 

*/ 

NC_a:         CALL    LETTfR  (PERM    A  DC  I"!  .  C  I  T  Y  .  2  0  )  ; 
/* 

UPDATE   THE    STATE    IN    PERVANENT    ADDRESS    liY    CALLING  LE'TTER. 

*/ 

N0_9;         CALL   LETTER(PERM    AO DR . S T A TE . 2 ) > 
/*  ~ 


UPDATE  THE  ZIP  CODE  IN  PERMANENT  A03RESS  QY  CALLING 
LETTER. 

N0_10:       CALL    LETTER(PEHM  AODR^ZIP.5); 
/* 

UPDATE    THE   PEr.MANENT    PHONE    NUMaER    BY    CALLING  LETTER. 
NO_li:      CALL    LETTER! PERM_PHON£ , 1 0) ; 


*/ 


UPDATE  rne:  complete  local  address,     print  the  previous 

AND    PRESENT    CONTENTS   OR    LOCAL  ADDRESS. 

*/ 

Na_12:      PUT    EILE(  SYEPP  INT)    ED  !  V  {  I  TEM  ,  LGC  AU    A  DO '1 .  S  T  HFET  , 

LOC  AL_AOO  ?  .C  I  TY)  <  COL  (  .E<  2  )  .  X(  H>  ,2(  A  ,  X  (2)  )  )  ; 

STG';e_C    ^    LOCAL_ACD>T  .ST  ATf:    ||     •       '11    LOCAL  ADOR.ZIP; 
GET    FILEISYSIN)    ED  I  T ( LU C AL_ ADDR )  ( X ( J ) , A ( 2 0 > . X ( S ) , A < 2 0 ) , 

X  <  5  >  ,  A  (  2  )  ,  X  (  3  )  ,  A  (  :> )  )  ; 
PUT    FI LE( SYSPR  INT)    E  0  I  T  (  LCC A L_AO DR . S TR EET , 

LOCAL,.  AC  DR  .CITY)(X{7),2  <A.X(2))); 
PUT    FILE(SYSPRINTJ    E 0  I T { S TOR t_C, LO CAL    ADDR. STATE. 

LOCAL_AQOR.£IPJ  (  C  OL  (  3 'o  )  .  A  ,  X  (  A  !  )  .  2    (  A  .X  (2)  )  )  ; 

GO  Tc  next; 

/*  .  ■ 


UPDATE  Tl-c    STREET    IN  LOCAL    ADDRESS  BY  CALLING  LETTE-R. 

N0..13:      CALL   LETTER(LCCAL   AODR  .  STREET  ,  20  )  ; 
/* 

UPDATE    THE   CITY    IN    LOCAL   ADDRESS   BY   CALLING  LETTER. 

N0_14:      C>LL    LETTERILOCAL    AC PR i C  I  T Y . 2 0 ) ; 
/* 

UPCATE    THE    STATE    IN   LOCAL    ADDRESS    UY   CALLING  LETTER. 
NO_15:       CALL    LETTERILOCAL    ADDR i STATE .2 ) I 


*/ 


UPDATE   THE    ZIP   CODE    IN   LOCAL    ADDRESS  .OY  CALLING  LETTER. 

N0_16:      CALL    LETTERILOCAL   ADOR  ,  Z  I P  .  15  )  :  -  • 
/* 

UPDATE    THE    LOCAL  PHONE    NUMOER  OY  CALLING  LETTER, 
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Nt)    17:      CAUl.  LETTE^fLOtAL  rHC;te.  ,7  i  ; 
/* 

C'PDAre  SEX  m  calung  LtTTe«. 

*/ 

NO_ia:      CALL   LETTEraSEX.l)  ; 

UPDATE    THE   CGMPLETE    0 t « TH    OATEi       PRINT    THE   PREVIOUS  ANO 
PRESENT   CONTENTS   OK    OIP.TH  JATE. 

*/ 

NC_l«}:      PUT    FfLECSrSPR  INT)    E  0  I T  (  t  TE  M  ,  B  {  R  TH_0  AT  E  )  (  COL  (  ?.6  )  .  F  <  2  )  t 
X  (  7 )  ,  J    (  F  ( )  ,  X  <  ^'  )  )  )  ; 
GET    FILe(SYSIN)    EO  I  T  J  t1  (  R  T  H_D  A  r  E  )  (  X  (  J  )  ,  3    (  F  (2  )  ,  X  (  J)  )  )  ; 
PUT    F  ILE  (  S  YSPR  INT  ;    tO  I  T  (  B  I R  T  H_UA  TE  )  t  X  (  4  0  J  •  J    (F  {  2  )  ,  X  (       )  ) 

go'to  NEXl; 

/I- 


*/ 


*/ 


UPDATE    THE    MONTH    IN   0 IRTH   DATE    DY  CALLING  NUMRE«. 

N0_20:      CALL    NUMOEh  (t3lRTH_CATE).MCNTH,2  )  : 
/* 

UPCATc    THE    CAY    r.  N    L'lRTH    GATE   BY    CALLING  NUMBER. 

N0._2i:       CALL    NUMBEr?  {  B  [RTH  0ATEi0AY,2); 
/* 

UPDATE    THE    YEAR    If.    BIRTH   DATE   BY   CALLING  NUMBER, 

N0_22:      CALL    NU  MOE  K  (  ii  I  RTH_  C  A  T  E  i  YR  ,2  )  ; 
/♦ 

UPCATE    Tl-E   MAP.ITAL   STATUS   QY  CALLING  NUMBER. 

N0_2J:       CALL    NUMGER (M AR ITAL  STAT.lJ; 
/* 

UPDATE    THE    NU1V8ER   OF   DEPENDENT   CHILDREN   £Y  CALLING 
NUMBER  ,. 

NC_2'*:      CALL    MJMBEF?  {OEP_CH  ILOREN  ,  1  )  ; 
/* 

UPCATE    THE   AGE   RANGE   OF    DEPENDENT   CHILDREN   3Y  CALLING 
ARRAY. 

*/ 

N0_25:       CALL   ARR A Y { 2 , A GE_R A NGE , 2 } ; 
/* 

UPCATE    ALL    OF    THE    WORK    EXPERIENCES    BY    CALLING  ARRAY. 

*/ 

Na_26:       CALL    ARRAY  (6  ,V/ORK_EXP  ,a  )  ; 
/« 

UPCATE  THE  FIRST  BLANK.  VvCRKi  EXPERIENCE  BY  CALLING  ARRAY. 
PRINT   AN    ERROi<    MESSAGE    IF    THE    ARRAY    IS  FULL. 

NC_27:       DC    I    -    I    TO    6  .WHtLE(WQRK   EXPII)    -==   0)i  *^ 

end; 

if  i      7  then  dc; 
put  file(  svsprint)  ed  i  t  (  i.  tem  ,  •  morh  than  six  work  *, 

'EXPhR lENCES* ) (CCLt 26)  .F(2)  ,COL( 85)  ,2  A); 

GO  Tu  next; 

END  ; 

CALL    NUMBERIWORK  EXP(U,2); 
/* 

UPDATE    ALL    OF    THE    TRAVEL    EXPERIENCES   BY  CALLING  ARRAY. 

no_2q:     call  a  }ray{ 6 , travel  EXP  ,2);  *^ 

UPDATE    THE    first    BLANK    TRAVEL   EXPERIENCE    BY    CALI  ING 
ARRAY.      PRINT    AN   ERRO><    MEASAGE    IF    THE    ARRAY    IS  FULL. 

N0_2g:    00  I  -  I  TO  t>  \*hile{  travel  expii)        o);  *^ 
end;  ~  • 

IF   I   -  y  THEN  do; 

PUT    F  [LE(  iYSPP INT >    ED  IT {  I T E M i  >  VORE    THAN    SIX  TRAVEL 

' 'r':'*^''-^ '  ^  ^       ' ''-'^ >  •  < -'i  •  <"-"i- 1     )  •  2  A)  ; 

END ; 


]?.6 


CALL   NUMHei^  (TRAVai.  FKP(l)»Zi; 

/* 

UPO/.TL"  ALL  INFOf?MAriCN  IN  CURRKNT  ^WPLOYMENT .  PRINT  THE 
PREVIOUS   AND   PKtStNT   CONTENTS    OF   C'JPRHNT  aMPLOYMENT. 

*/ 

NU_30:      PUT    H  ILe<  SYSPR  INT)    G  0  I  T  •  I T  l£M  .  CUR_f:MP  LO  YMCNT  >  { COL  (  26  )  , 
H(2).X(7).A,X{;?).F<ai); 
GET    rlLL'(SYSlN)    tOITICUt-i    EMPL  O/M  ilN  T  )  (  X  (  J  )  .  A  (  20  )  .  X  (  5 )  ♦ 

F  {  2 )  J  ; 

PUT    F  ILt < SYSPm INT )    6Crr{CUR    EMPLO YMc NT > ( COL ( 85 )  . A , X { 2 )  . 

F  (  2 )  ) ; 
GO    fC  Ni£XT; 

/* 

LPOATE    TliH   NAME  OF    THH    EMPLOYER;    IN   CL'.'^RENT  EMPLOYMENT 
tlY    CALLING  LETTER. 

♦/ 

NU_3i:      CALL  LHTTE^l(CUR_r:MPLOYt•^eNT.EMPL0YER. 20)  ; 

UPDAT'i    THE    HOUi^S    WORKED    PER    WEEK    IN    CUSSiENT  EMPLOYMENT 
BY   CALLING  NUMBE.-^. 

*/ 

N0_32:      CALL   N  UM  BER  (  CUR_EI-iP  LOYM  ENT  .  MR  S_P  E.=?_WK  .  2)  ; 
/* 

UPOATE    THE    INFORMATICN    ON   ONE   OF    THE   COLLEGES  ATTENDED. 
PRINT    THE   PREVIOUS    AND   PRESENT    INFORMATION   ABOUT  THIS 
COLLEGE  . 

*/ 

NU_JJ:       GET    FlLG(SYSrN)    EO I T (  I N 0 EX )  ( X ( 3 )  ,  F ( 2  )  ) ; 

OUT    FILEfSYSP;^  INT)    E  C  I  T  (  I  T  EM  ,  COL    AT  T  (  I  NDEX  )  )  (  COL  (  26  )  , 

F(^),X(7),J  (A,X(2))); 
GET    FILE(SYSIN)    EO I T ( CU L_ AT T ( I ND EX > >  ( X ( 3 )  , A ( 30  J  t X{ 5 )  , 

2    { A ( 6J  , X(4)  )  )  ; 
PUT    F  U.E(  SYSPR  INT)    E  C I  T  (  COL_  ATT  (  I  NOE  X )  ).  (X  J  A  )  ,3  (A,V<(2})) 

go' TO  NEXT ; 

UPDATE    THE     INSTITUTION    NAME   FOR   ONE   OF    THE  COLLEGES 
ATTENDcC    6Y   CALLING  LETTErt. 

*/ 

N0_34  :       GET    FILEISYSIN)    ED  I  T (  I N DE X )< X ( 3 )  ,F ( 2  )  )  ; 
CALL   LETTE.'^I  IMSriTUT  ION  (  INDEX)  ,  30)  ; 
/♦ 

UPOATE    THE    DATES    OF    ATTENDANCE   FOR    ONE   OF    THE  COLLEGES 
ATTENDED.      P,^  I  N  f    THE   PREVIOUS   AND   PRESENT    I  NFQf?MA  T  ION 
AuOUT    THE    DATES   OF  ATTENDANCE. 

*/ 

NC_35:       GET    FILE (SYS  IN)    EO  I  T (  INDEX  )  ( X ( 3  )  .F ( 2 ) )  ; 

PUT   FILE!  SYSP.^INT)    E  D  I  T  (  I  T  EM  ,  DAT  ES  (  I  NDE  X  )  )  (  COL  {  26)  ,  F  (  2)  . 

X  (  / )  .2    <  A  ,  X( 2)  J  )  ; 
GET    FluE(SYSIN)    E  C  I  T  (  OA  T  ES  (  I  NOEX  )  X  X  {  3  )  ,  2    (  A  {  6  )  ,  X I )  I  >  ; 
PUT    FILE!  3YSP,-ilNT)    E  D  I  T  (  D  A  T  t  S  (  I  NDE  X  )  )  (  X  06  )  ,  2  (A(6), 

X  ( -■*)))  ; 
GO  TG  next; 
/* 


UPCATE  THE  BEGINNING  DATE  OF  ATTENDANCE  FO!^  ONE  OF  THE 
COLLEGES  ATTEND-:0   tlY  CALLING  LETTER. 

N0..36:      GET    FILE(SYS!r.)    ED  I  T  (  IN  DEX  )  (  X  (  3  )  ,F  (  2  )  )  : 
CALL   LETTE«( aEG  IN(  INDEX) f6)  ; 
/* 

UPDATE    THE    ENDING    DATE    CF    ATTENDANCE    FOR    ONE  OF  THE 
COLLEGES    ATTENDED    DY  CALLING  LEiTTER. 

Na_37:      GET    FILEISYSIM)    ED  I  T (  I NDEX )  ( X ( 3 )  ,F ( 2 ) ) ; 
CALL   1.1.  r  TE'?  (  ENO(  INDEX  )  .  6  )  ; 
/* 

Ui'DATE    THE    GHADE   POINT    AVERAGE   OY   CALLING   NUMOER . 

N0_  3a:       CALL    NUMbEfUGPA  ,  I  )  ; 
/* 


*/ 


*/ 


UPDATE  THE  MYERS  dRIOGS  TYPE  INDICATOR  BY  CALLING 
NUMBER  • 

N0_30:      CALL  NUMBER  {MYEr<:;„OR  iGas  «2>  ; 


*/ 
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/♦ 

UPDA  rfC    Tfie   KNI  tHE    CHP  t-.NTRANCl-.   OAff:.      PrtINT    THE  Pi^EV  IGUS 
-      AND   PRESENT    I NHO«M A T  (ON    AGUUT    Tl'ni    CZP    ENTIJANCE  OATb. 

*/ 

NC_40:      PUr    F[LH(  :3V3Pr?  INT>    [!  D  ir  (  I  T  K  .v  .  C  t^P   fcNTR.\NCE)  {CCL{i;0)  ,K(2), 

KiHf'i  (F  (i^ )  .X  (2  )  » ,1- ( ;5, 1 ) )  ; 

GET    rlLL(SYilN)    EOITCCKP    tINT  r1  ANC  E  >  (  X  (  J  )  .'Z  (F(2).X(J))« 
F  (  i  ,  1  )  )  ; 

PUT    FILE(SrSPKINr)    f;C5r(CEP   ENTRAFJCE  )  (Xl^ia)  ,  2  (F{2),X(2I 

J  .Fi    ,  1 )  J  ; 

GO   TC  NEXi; 

/* 

UPOATE   THE   YEAR    IN  'THE   CEP   ENTRANCE   DATE   BY  CALLING 

NUMrJEi^. 

*/ 

KQ_<(i:      CALL    NUMSEP.  (CEP    EN  TR  AN  C  E  .  YR  .  2  )  > 


UPUATE    THE   aUARTEi?    IN    THE  CEP  ENTRANCE   DATE  BY  CALLING 
iNUMOEH. 

NC_'i2:      CALL    NU?U3Ea  <CEP_ENTRANCE  .OTR  .  I  )  ; 
/♦ 

UPDATE    T(-E    HOURS    COMPLETED    UPON    ENTRANCE    INTO  CEP. 
PRINT    THE   PREVIOUS    ANO   PRESENT    CONTENTS   OF  HOURS 
COMPLETED . 

*/ 

N0_43:       PUT    FILE(3YSPRINT)    EClTdTEM.HRS    COM  )  (  COL  (  26  )  .  F  <  2  )  ,  X  (  7)  , 
F  <  5  ,  1  )  )  ; 

GET    FILE(SYSIN)    ED t T ( HR S_COM )( X ( 3 ), F ( 5 , 1 )) ; 

PUT    FILEC  SYSPR  INT)    EOIKHRS    COM  )  (  C  OL  (  3  5  )  .  F  {  5  ,  I  )  )  ; 

GO  TC  next; 


*/ 


UPOATE   THE   AREA   OF    SPECIALIZATION  BY    CALLING  NUMeER , 

N0_'C(4:      CALL    NUMf.)tH(5PEC!ALIZATI0N,l  ); 
/* 

UPDATE    THE    TEAM   NUMBER    BY    CALLING  NUMBER. 

NC_45:       CALL    NUM OER ( TE AM , 1 ) ; 
/* 

UPDATE   THE    SEMINAR    NUHi5£R    BY   CALLING  NUMBER. 

NC_4e:       CALL   NUMBER ( SEMINAR  ,2)  > 
/* 

UPOATE    THE    ENTIRE    EXPECTED    DATE    OF    GRADUATION.  PRINT 
THE   PREVIOUS  AND   PRESENT    CONTENTS   OF    THE  EXPECTEO 
CATE    OF  GRADUATION. 

*/ 

NC..47:      PUT    FlLE<SYSPRiNT)    E  D  I T  (  I TE  M  ,  E  XP   GRAO   C  A  T  E  )<  COL  (  ■''6  )  ,  F  {  2  ) 
.  X  (  /  )  .  2    (  F  ( 2  )  ,  X  (  2  )  )  )  ; 
OcT    FILEC  SYSIN  J    ED  I  T  (  E /,P_GK  AD_D  A  TE  )  (  X  (  J  )  ,  2    (  F  (  2  )  ,  X  {  J  )  )  >  : 
PUT    F ILE( 3YSPR INT)    ED  IT ( EXP_GR AU_D A T E ) ( X I  43)  ,2  (F{2), 
X  (  2  I  )  }  i 

GO  TC  next; 
/* 

UPDATE    THE    YEAR    IN    THE    EXPECTED    DATE    OF    GR  .DUAT ICN  BY 
CALi-ING  NUMGER. 

NO_4e:      CALL   NUMBERIEXP   GRAO  DATE.YR,?); 
/¥  _  „ 

UPD\Te  THE  QUARTER  IN  THE  EXPECTED  DATE  OF  GRADUATION  OY 
CALLING  NUMBER. 

NO_4';:      CALL    NUMUER(exP_GRAO_DA  TE.QTR  ,  I)  ;  *^ 

UPDATE    THE   GRADE  FOR   ONE   OF*  THE   REOJIREO  COURSES  OY 
CALLING  LETTER. 

N0_5C:      GET    FILE(SYSIN)    El)  I  T  (  I  N  OF  X )  (  X  {  J  )  ,  F  (  ?  )  )  ;        "  *^ 
CALL   l-ETTER(;<EO_COURSC_CRADE{  INiJEX),!)  ; 

UPOATE    ALL    INFORMATION    Oft   ONE   REGISTRATION.      PRINT  THE 
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P'^rrviou;.  auo  pi^esent  inkohmation  auquv  this 

I  STRATION. 

*/ 

.NO_.si:    cF.r  f-i  i.E{  5Y3  IN )  ED  I  ri  iNDfiX)  (  x(  n        ) ) ; 

Pur  r-iLEi  iYsc;  int )  Eor  r  ( i  tem  ,Rr:<; i  ora a r  laN.oArei  I  Noex) ) 

(  cou  <^(3 )  .r  ( )  .x(  7  )  )  ,x<.i: ) )  )  : 

00    I        I    1(3  5: 

SrOI!E_3{I)    --  COUI^SESI  tNDEXt  1) ;  ■• 

GET    flLt(SY3lN)    EO  IT  {      G  I  S  T  P!  A  T  I  f  J  N  (  I  N  DE  X  )  )  (  X  (  3  )  i  F  (  2  >  i 
X  (  J  )  ,  I  -  (  I  )  ,  X  {     J  ,  J    (  A  (  O  )  .  X  (  A  )  ,  t  (  2  )  .  X  (  J  )  ,  A  (  I  )  ,  X  {  4  )  )  . 

COl.  {  6)  ,  2  (  A(  o>  .  x(    )  ,|-     )  t  X 13  )  ,  A{  I )  ,x  ( 4  ) )  )  ; 

PUT    P ILE ( SYiPR I  NT)    ED  1 T ( «E G I  3 TR A T I CN  .  D AT E (  INDEX)  ) ( X(44)  , 

2   ( r  ( ^ )  ,  X  { 2 )  )  ) ; 

PUr    F I {  S YSPH INT)    ED  I T ( ( STORE_S ( I  )    DO    I    =    I    TO  3), 

(  COU  .<SE3  (  INDEX  ,  I  )    DU    I    =    1    TO    3), (STORE    S(I)    DO    I,  -  A 
TU   5  )  ,  (  COUiVSES  I  I  NCEX  ,  I  )    00    I    =    '*    TO  S))'" 

(CUL(J5),5  (  A  ,X(  ^  )  ,F  I  2)  ,X  (  )  ,  A  ,X  (2  )  )  ,CCL  (35  )  .  3  (A.XIi) 
,E  (  .X  (2  )  .  A.  X(.i  )  )  ,Cai.(  35  )  ,2  (A,X(2),F(2),X{2).A,X(2J) 
tCGLl 35)  ,2    ( A.X(  I  )  .f  ( 2)  .X(2)  ,A  ,X(2) ) )  : 

GO  10  next; 


UPDATE  THE  ENTIRE  DATE  EOll  ONE  OF  THE  REGISTRATIONS  St 
CALLING  rillE. 

N0_52:      GET    FILE(SYS!N)    EO 1 T (  I NOE X )  ( X ( 3 )  . F ( 2 ) )  ; 

CALL    T I  ME ( KEGI STRAT  IGNi  DATE {  INDEX)  ) ; 


UPDATE  THE  YEAR  FOR  CNE  OF  THE  REGISTRATIONS  SY  CALLING 
NUMiJER  . 

*, 

NC_53:      GET    FILE(SYSIN)    E D  I T {  I  N C EX ) { X ( 3 )  ,  F ( 2  )  )  ; 

CALL    NUMBER (kEGI  STR AT  I  ON. YR(  I NDEX)  ,2i ; 


UPDATE  THE  0'  ARTER  FOR  CNE  OF  THE  REGISTRATIONS  BY 
CALLING  NUMBER. 

N0_54:      (jET    FJLE(oY3IN)    EI>  I  T  (  1  N  DE  X  >  (  X  (  3  )  .  F  (  2  )  )  ; 

CALL    NUMBER (PEGISTRAT lON.QTR { INDEX) , 1) ; 
/* 


UPC4TE  ALL  INFO?;;iAT  ION  ON  THE  CDIRSES  FOR  ONE 
REGISTRATION.  PRINT  THE  PREVIOUS  AND  PRESENT 
INFORMATION    ABOUT    THESE  COURSES. 

*/ 

NC_55:      GET    F  ILE  t  S  Y5IN  )    ED  i  T  (  INi:tX  )  {  X  (3)  ,H  (2  )  )  ; 

PUT    FI  LE(  SYSPR  INT)    EO  iT  I  I  T  E  I' .  (  C  OU'^SE  S  {  I  NOEX  ,  I  )    DO    I    -  t 

TC    3)  )  ( C0L(26 )  ,F i 2)  .X  17 ) ,3    ( A , X( 2 )  , F ( 2 )  . X { 2 )  . A  ,  X ( 2 ) J  )  ; 
DO    I    =    I    TO  5; 

3TCRE_S(l)    =   COURSES! INDEX, I) : 

ENC ; 

GET    FTLE(SYSIN)    ED T T ( ( C OUR SES ( I NOEX , I )    DO    I    =    I    TO  5)) 

(X  (  3  j  ,  3    (  A  (6  )  ,  X(  4  )  ,  F  !  2  )  ,  X(  3)  ,A  (  I  )  .  X(  4)  )  .COL(  5)  ,2    (A  (6) 

.  X  (  4  !  .  F  (  2  )  .  X  (  3  )  ,  A  ;  I  )  ).  )  ; 
PUT    FILEISYSPRINT)    E 0  I  T  (  ( C OURS ES { f ND EX , I  )    DO    I    -    I    TO  3) 

)  (  CCL  (  as.  )  ,3    (  A  ,  X  (  2  )  ,  F  (  2  )  ,  X  <2  1  ,  A.  X(  3)  )  )  ; 
PUT    FILE( SYSPRINT)    ED  1  T (  i STORE_S (  I  )    DO    I    =   3    TO  4), 

(CQURSESi INDEX, I )    DO    I    -    3    TO    4 > ) i COL ( 35 ) . 2  (A,X(2), 
F(2),X(2)  ,A,X(2)),CCL(a5J.2  (A,X(2),F{2),X(2),A,X(2))); 
GO    1 0   NE  X  T ; 
/* 

UPDATE   THE   COURSE   NUMIJER  FOR   A  COURSE  HO;?   ONE  OF  THE 
REGISTRATIONS    UY   CALLING  LETTER. 

N0_56:       GET    FILE(SYSIN)    ED  I  T  (  I  N  DEX  ,  I  NDEX  _  I  )  (  X  (  3  »  ,  H  (  2  )  )  ; 
CALL   LETTER (COURSE_NC( I NDEX» INDEX_ I ) ,6 ) ; 


UPDATE  TFE  CPE-OIT  HOURS  FOR  A  COURSE  FOR  ONE  OF  THB 
REGISTRATIONS    BY    CALLING  NUMUEft. 

Na_57:      GET    FILE(3YSIN)    ED  IT  (  I;  J  DE  X  ,  I NDE  X    I)  (  X  {  3  )  ,  F  (  2  )  )  : 
CALL    NUMOER{HRS(  INDEX,  INDEX    I), 27: 
/♦ 

UPDATE    THE    GRADE   FOR   A   COURSE   FOR   ONE  OF  THE 
REGISTRATIONS   UV  CALLING  LETrE!!-. 

N0_5e:      GET    FILEISYSIN)    E D ! T ( I N DE X , I NOEX_ 1 ) ( X { 3 ) , F ( 2 ) ) ; 

•     CALL   L.ETTER(REOISTRAriON.GRADE(  I  NDEX  ,  INUEX_1  )  ,  I  )  ; 


*/ 
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/« 

U;JDAri:    all    CI-    TH[£    INPOI^MATK:?-!   CN   CNC    LKAPNtNO  ACTIVITY* 
PRINT    TKt:  PRf-:V  lUUS    AND    FKliSf-.Nr    I  Ml- 0"-;  M  A  T  I  GN  At'OUT  TIII3 
AC  f I  VI  TV. 

*/ 

N0_59:      GfcT    FIUt(SYSIN)    tT  D  f  r  (  An  6  A  W  ,  A  C  T  I  V  I T  V  #  )  (  2    (  X  (  J  )  ,  F  I  2  )  )  )  ; 

INOe.X    =    ENT-!Y<  AiiKAff  )  ACTIVlTV-i; 

PUT    F  ILI:  (  fiYSPK  I  .N  r  )       0  I  f  (  I  T  t.  K  .  L  (£  A  fU-l  I  N       A  (  INDEX)  / 

( c::l{ ^6)  .F  (;.'  )  t  X(  /  )  ,F C    )  . X  (2 )  .  A  ,X( 2  )  ,6    (F( 2)  ,  X(  ^)  )  , 

F  (  J  j  .  X  {  2  I  .  2  {  13  ,  X  {  ^  )  )  »  ; 
GET    FILG<SYSIN)    CO  I  T  (  Lf^  AR  N  I  N  G   A  (  I NDE  X  )  )  (  X  (  .3  )  ,  F  {  2 1  .  X  (  J  )  i 

A(t).X(4),6    (  F  (  2  )  .X(  U  )  ,F  <  J)  ,  X  (  2  )  ,  2    <  U  (  1  )  ,  X(  4  )  )  )  ; 
PUT    F  ILrl  (  SYSP.-!  INT  )     F.OI  T  (LtAPN  ING_A  (  I  NOfIX!  »  (  X  {5  )  , 

K  (  2  )  .  ,\  (  2  )  ,  A  .  X  (  2  )  ,-6    (  F  (  2  )  ,  X  {  2  )  )  .  1"  (  J  )  .  X  (  2  )  0  2    (  B  .  X(  2  )  )  )  ; 

GO  TO  next; 

/  » 

UPDATE    THE    FACULTY    Mtl'DEifl   FOf?   ONf";   OF    THE  LEARNING 
ACTIVITIES    i3Y    CALLING  NUMOt«. 

*/ 

N0_60:      Gr:T    FILE!  SYS  IN)    ED  I  T  (  ARE  A>;/ .  AC  T  (  V  I T  Y  »  )  (  2    (  X  (  .3  )  ,  F  (  2  }  )  )  ; 
(NOEX         ENTRY  (  A^JflA*  !    ♦■  ACriVIfY;!*; 
CALL    NUMt!E.'\  (FACULTY  (  iNOfcX).2); 
/* 


UPDATE    THE    OATE   FOR    QNS    OF    THE  LEARNING   ACTIVITIES  DY 

*/ 

NC.6i:      GET    FILEISYSIN)    E  J  I  T  (  AilE  A  »  ,  A  C  T  I  V  IT  Y )  (  2    (  X  (  3  )  ,  F  (  2  )  )  )  ; 

INDEX    =    tNT<;Y(  Ar^EA*  )    +  ACTIVITY/*; 

CALL   L'HTTEfs  (LEARNING_A.DArEt  INDEX)  ,6  )  ; 


UPDATE    THE    CCM.MeiNTS    FOR   ONE   OF    THE   LEAi^NING  ACTIVITIES 
BY    CALLING  ARRAY. 

*/ 

NC_62:       GET    FILE(SYS;N)    ED  !T(  ArlEA*,  ACTTV  ITV*  )  (  2    {  X  (  3  )  ,  F  {  2  )  5  )  ; 
:nOE/    -    ENTRr<AKEA*)    <-  ACTIVIT.?.*; 
CALL    ARRAYia.CCVMENTC  INDEXs^^)  ,2)  : 

UPDATE    THE    ACTIVITY    TITLE  FOrt   ONi£   OF    THE  LEARNING 
ACTIVITIES    BY    CALLING  NUMBER. 

*/ 

NO...fcJ:       GET    FILECSYSIN)    ED  I  T  (  AR  E  A  V  ,  A  CT  I  V  I T  Y  #  )  (  2    (  X  (  3  )  ,  F  (  2  )  i  )  ; 
INDEX    =:    ENTRY  (  Ai^EAif  )    +  ACTIVITY*; 
CALL   NUMlJGR  C  ACTI  VI  T  Y    T  I  TLE  (  I  NDEX  )  ,  J)  ; 
/* 

UPDATE    THE    GROUP    STATUS    FOR    ONE   OF    THE  LEARNING 
ACTIVITIES   SY   CALLING  bITS. 

*/ 

NC^fei:       GET    FILECSYGIN)    ED  I  T  (  Aii  E  A />  ,  AC  T I  V  I  f  V// )  (  2    (  X  (  J  )  ,  F  (  2  )  )  )  ; 
INDEX    =    ENTRY { A?EA7 )    +  ACTIVITY*; 
CAUL    01  rs( GRCUPI  INDEX) )  ; 
/* 


UPDATE  THE 
ACT  1  VI T I ES 


SUM  ST [ TUTE 
□Y  CALLING 


S  TATUS 
U  I  T  S  .■ 


FOR   ONE   OF   THE  LEARNING 


NO_fe5:       GET    FILE(SYS(N)    E  0  I  T  (  AR  E  A  v  ,  AC  T  I  V  I T  Y.»  )  (  2  (X(3),F(2))) 
IWDF:X    =    CNT^Y  I  AP.E  AV  )    V  ACTIVITY*; 
CALL    HI  TS(  SUljSTI  TUrE(  INDEX)  )  ; 


*/ 


NC    66  : 


UPDATE    ALL    OF    THE    INFORMATION   ON   ONE   FIELD  EXPERIENCE, 
P/^INT    THE   Pi^FVIOUS    AND    PRESENT    INFORMATION   ACOUT  THIS 
FIELD  EXPERIENCE. 


GET  FtLE( 

PUT  FILE! 
< I KDEX ) 
!  I  ^  U  E  X  ) 
F  (  2  )  ,  X  ( 

DO    I    =  I 
STORE  A 
STOi-!cZA 
3  (DI  E  A 
ENC  ; 

GET  .•■ILf.  { 
F  !  1  )  .  X  ( 
r  <  2  )  ,  X  ( 

PUT  FILfcl 


*/ 

SYS  IN )    ED  r  T (  INDEX) ( X( J)  ,F )  )  ; 

SYS  PRINT)    ECITIITEM  ,  SCHO.JL  (  INDEX  )  ,  F  lELD  .GRADF 
.FH  LO. LEVEL!  INDEX)  .FIELD  .DATE!  lr;DLX)  .CLASSROOM 
.  TE  ACHEiM  I  NDi:  .<  )  )  (COL  (  26  )  .  F (  2  >  .  X  (  V  )  , F  (  2  )  . X  (  2 )  , 
2) .F(l),X(2).Ft2),X<2),2  {F(2).X(2)).A); 
TO  6; 

(I)    =    F_r;Ol.E  (  ^  NDEX  ,  I  )  ; 

(I    *-    6)    =    ST'<i£NGTH5  (  INDEX  .  I  )  ; 

II         12)    -    WEAKNESSES  (  I  NDEX  .  I  )  ; 


3Y3IN)  EOIT(F( ELC (  INDEX) I  (X(3)  .2 
^^  .  K  (  2  )  ,  X  (  J  )  .  2    (  F  (i  )  .  X  (  A  )  )  ,  A  {  t  •> ) 

J ; )  5 )  ; 

SYSPf}  INT  )    EDIT  (  SCHOOL  (  I  NDEX  )  ,  F  I  ELD.  GRADE  (  INDEX) 


(F(2) ,X(3) ) . 
.2    (COL(O)  ,  12 
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,  F  I  TL'J  .1  eV(:L{  INDHX  )  .1-  I  ELO  .  CA  TV.  (  I  (10  EX  )  .  CL  ASSi^ 00  M  {  I  NOEX » 
,  TE  ACi-F:h  {  tNOliX  )  )  {  X  (  I J  )  ,  ^    (f-(i!  i ,  >;(  a  J  )  t  F(  1  »  .A(  a)  .K(  2)  , 

A{2}  .1  ( I)  ,x(^)  ,,-( c?)  ,K^^i  ,A) : 

PUT    r  !l.r:-(:iY'jPfUNT)    to  I  f  «  (  STOPi-r   A(I)    DO    I    =    1    TO  12), 

F_  r.oi..i;  {  I NDf:x  ,  +  > ,  sTn;:;(GrH5(  iNDi:  ,< .  *)  ,  ( 5T[)RK_A(  I »  oo  i  - 

IJ    TO    H3>  .  At£AKN  ::5Sh5MNOex  ,  «)  )  (C0L(J5)  .  l^;  (F(^),X{^)>, 

x(i),i2  (K     } ,  XI   ) ; ,  CCL  ( J5 )  ,6  (F     ) ,  x(     >  ,x<  ;i? ) .  6tK  (2) 
.  X  ( ^  ) )  J  ; 
GO  TO  NexT; 


UPDATE    rue    SCHOCL   FOR   ONE  OF    TUli   FIELD   EXP£(Ul£NCI£3  B/ 
CALLING  NUMUER. 

*/ 

GST    FILU(SYSIM)    FD  t  T  (  I  NOl£  X  )  (  X  {  J  )  ,1-  ( 2  )  )  ; 
CALL    fJUMUE;^  <SChOGL(  INDEX  J  ,2  )  ; 

UPDATE    THE    GRAOfi   FOR   CN£    OF    TH'i    V)  E-D   EXPERtENCES  UY 
CALLING  NUM>3E;?. 

*/ 

GET    FILECSYSr.Nj    F.O  I  T  (  I  N  C  CX  )  !  X  (  3  )  ,  F  C  2  )  )  ; 
CALL    NUMl3e.-!(l-  I  LLD.  G!?AOE  (  IMD  £X)  ,2  )  ; 


UPDATS  THE  LEVEL  IN  CEi?  FOR  ONE  Or  THE  FIELD  EXPERIEriCES 
BY    CALLING  NUMBER. 

*/ 

GET    FILE{SYSIN)    EO i T (  I N DE X M X { 3 )  .F ( 2 ))  ; 

CALL    NUMBER (F  i  ELD  .LEVEL (  INDEX)  , I )  ; 

/* 


UPDATE   TFE   ENTIRE   DATE   FOR   ONE   OF    TME   FIELD  EXPERIENCES 
BY   CALLING  TIME. 

*/ 

GET    FILF'.SYSIN)    E  0  I  T  {  I N  CH  X  )  (  X  (  3  )  .F  (  2  )  )  J 
CALL    T  IME  (F  IF.LD.DAT  £{  INDEX)  )  ; 
/  + 

UPDATE    THE    YEAR   FG:-^    CNE   UF  THE  FIELD   EXPERIENCES  8Y 
CALLING  NUMBER. 

♦/ 

(jl-.T    FILEISYSIK)    £01  T(  INCEX)  (  X(3>  ,F(2  )  i  ; 
CALL    NUMBER (FI ELD . YR(  INDEX)  ,2 )  i 
/  « 

UPDATE    THE    QUARTER   FCR   CNE    OF   THE  FIELD  EXPERIENCES  QY 
CALLING  NUMUER. 

GET    FILE(SYSIN)    ED  I  T  (  I  Ni:  EX  )  (  X  (  3  )  ,  F  (  2  )  )  ; 
CALL    NUMBER(Fi  ELD.CITR  {  I  NDEX)  ,  I  )  ; 


UPDATE  THE  CLASSROOM  TYPE  FOR  ONE  OF  THE  FIELD 
EXPERIENCES    BY    CALLING  NUMBER. 

GET    FiLECSYSIN)    ED  I T (  IN C EX ) ( X ( 3 )  , F ( 2 ) )  ; 
CALL   NUMBER ( CLASSROOM ( INDEX) ,2) ; 


UPDATE  THE  SUPERVISING  TEACHER  FOR  ONE  OF  THE  FIELD 
EXPERIENCES   GY    CALLING  LETTER. 

GET    FILE(SY3IN>    E 0  I  T (  I N O E X ) ( X  1 3 )  ,F ( 2  )  )  ; 
CALL   LETTER  (TEACHER(  INDEX) 


UPDATE  THE  ROLES  FOR  ONE  CF  THE  FIELD  EXPERIENCES  BY 
CALLING  Ai<RAY. 

GET    FILE(SYSIN)    ED  I  T (  I NDEX ) ( X ( 3 )  ,F (2 ) )  ; 
CALL    APRAY  (6  .F_f.aLE  (  I  ND  E  X  ,  =>  )  ,  2  )  ; 


rl;?flM-^!:n„!I'"^"''""'^"^  '-^f^  "T'^^   PIELD   EXPERIENCES  HY 

GALLlNo  ARRAY. 


GET    FILE  (SYS  IN  J    E  D  t  T  (  I  r;  DE  X  J  (  X  {  3  )  ,  F  (  2  )  )  ; 
CALL    AI^RA  Y(  O  ,  STRENGTHS!  INDEX  ,*)  ,;j)  ; 

r^?t]L'^^:^nt-^^^^  '^'^^   '^^  '"I'-^l-O  EXPERIENCES  BY 

f-ALLINL.  ARRAY. 


*/ 
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NO  7/:     Gi£T  riLr;(S¥3iN)  i-:di  t(  (NOfx)  <  x<  :»),■-(  ^) ) : 

C  ALU    ARiJ  A  Y  (  6  .  W  ttA  KNli  JiSli  :i  (  I  NDF;  X  ,  *  )  ,2)1 

uPOATr;  ALL.  an  thk  i m-oiivat i cn  cn  tkf.  commvjnity 

CXPEniENCC.      PHINT    Tut    (■'Hr.VinjS    Ar^O   PlirSliNT  INI-CRMAriON 
AOOUT    nilS   KXPtK  IL".NCE. 

^  */ 

N0_7e:       PUT    f-"  t  Li:  (  SYSPR  INT  }    to  IT  (  I  TEM  .  AOL  NC  f ,  AGflNCY   RtP  , 

CO  MM  UN  t  T  Y.Lt  VLL  .CCMMJN  I  T  Y  .  C  A  T  li'  )  (  C  J  L  !  .V!  6  )  .  f"  (  ^  )  »  X  (  7  )  ,  2  C 

A  ,  X  ( :^ )  )  .  (  -■  {  I )  ,  X  ( ^  >  ,  t-  { ;i ) ,  X  { X  )  ,  n  (  n  ) ; 

OQ    I    -    I    TO  4; 

ST0Rt3_A(I)    -   C  OQLl.Mt): 

S  T  URr;_^  (  I    +    ^*  )    ~    C_COMME:NT  t  I  )  ; 

ENC: 

GET    FILK(SYSIN)    EO  I  T  ( C  U  W  MUM  T  Y  )  (  X  (  J  )  ,  A  (  2  0  )  .  X  {  5  )  ,  A  (  1     )  , 

X  (  1  )  ,f-  <  I  3  ,X  <  4  )  ,F  (     )  ,  X  (  J  )  ,i-  (  I  )  ,  C.OL(  6)  .0    CI-  (  ii )  ■  X  {  J  )  )  )  ; 
PUT    F  I  LF.  (  S  YS'^'P  INT  )    5    I  T  (  A      NC  r  ,  A  Cti  NC  Y  KtP, 

CUV.MUN  I  r  Y  .LE  VF;L  .CCr'-'iiJN  ITY  .  C  Ait  j  {  X(  -V)'  ,2    (  A  ,  X(  -2  )  )  .  F  <  I  )  . 

X12)  .FIP.)  ,Fl  D)  -r 

PUT    F I LF ( S YSPfi I  NT)    tD I T ( ( STQRe_ A ( I  )    DO    I    -    I    TO  fl), 

C_PCH-.  .C_COMMeNT  )  (  CCL  {3'j  )  s  t3    (  F  (  2  )  .  X  (  ^  )  )  .  X  (  20  i  t  3    (  F  {  2J 

.  X  ( e ) )  i  ; 
GO  Tc  next; 


UPDATE    THu    AGENCY  FOR    THE    CCMMUNITY    eXPERIENCE  BY 
CALLING  LETTER. 

*/ 

N0_7';*.       CALL    LETTEPt  AGENCY  ,20)^ 
/« 

UPDATE    THE    AGENCY   REPRESENTATIVE   FOR    THE  COMMUNITY 
EXPERIENCE    GY    CALLING  LETTER. 

*/ 

NO    UO:       CALL    LETTER( AGENCY    REP,  14); 
/♦ 

UPDATE    T!IE    LEVEL    IN    CEP    FOR    THE   COMMUNITY    EXPERIENCE  BY 
CALLING  .NUMBER. 

*/ 

N0_3i:       C^LL   NU,MeER(COMMUNi  rY.LEVEL,l  )  ; 
/  « 

UPDATE    THE    ENTIRE    DATE    FOR    THE    COMMUNITY    EXPERIENCE  3Y 
CALL  ING    T IME. 

*/ 

NO_(32:       CALL    T  I  ME  (  COMMUNITY,  DATE  )  ; 


UPDATE  THE  YEAR  OF  THE  COMMUNITY  EXPERIENCE  3Y  CALLING 
NUMJER.  . 

NfJ_eJ:      CALL    NUMBER  {COMMON  I  TY.  YR  ,2)  ; 
/* 

UPDATE   THE    QUARTER    OF   THE   CCMMIjNITY   EXPERIENCE  BY 
CALL  ING   NUMBER  . 

NO„a«:      CALL    NUMliE,^  (  COMMUN  I  TY.O  TR  ,L)  ; 
/* 

UPDATE   THE   ROLES  FOR   THE   COMMUNITY   EXPERIENCE  BY 
CALL ING  ARRAY. 

NO_85:      CALL  AHi<AY(  4  .  :_ROLE  f2)  » 


*/ 


UPDATE    THE   COMMENTS    AHOUT    THE   CCHMUMITY   EXPERIENCE  BY 
CALLING  Al!RA^. 

*/ 

NO_e6:      CALL    ASRAY{4,C    COMMENT. 2); 
/« 

ARRAY    UPDATES    THE    ELEMriJTS    OF   AN   AR^AV.       IT    PRINTS  THE 
PKF.VInUS    AND   PRESENT    CONTENTS    OF    THI-    ARRAY.  THF 
ARGUMENTS    PASSED   TO    ARRAY    A.i^E    THE   NUMHEH    OF  ELEMENTS 
IN    THE    ARRAY,    THE    NAME    CF    THE    APRAY    TO    tiE    PROCESSE')  ANO 
THE    NUMUEH    OF    DIGITS   OK    EACH  t  LE  Mh  i-.T  .  I N    THE  ARRAY. 

array:       PR0CEC:URE<N_REP, VALUES, LliN):  *^ 

ceclafje  vALur.'iC*)  Fixi;i>  iunary; 

PUT    F  1  LF  <  3VSPR  I  NTi    E  U  I  f  (  I  1  1:  M  ,  {  V  A  LU  ES  {  I  )    DO    I    -    I  Tl> 
N_Rt.P)  )  (  COL(  2ft  )  ,F  <2  J  ,  X(  7)  ,  (fJ   R  S:P  J  (  F  I  LEN  >  ,  X  ( 2  )  )  )  J 
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GKT    F!Le<<3Y3IN>    El"!  I T  (  ( V  ALUES  (  !  )    00    I    -    i    rO  N  RCP)>(X{J) 

.  (  N    tiE(')  (t- (LtNJ  ..<;  (  !5    -  Lt'N))); 
PUT    r  ILt  (SrSPR  INT  >    fi  0  (  T  (  (  V  ALUC  0  (  I  J    DO    I   ~    I   TO  N  REP)) 

(COL(  Mb)  ,  (N_(itP>  (  Fd.tN)  >X(2)  ))  : 
GO    TO  NliXT; 
LNO; 

/*  i 

HITS   UPDATES   Tt-E    CONTENTS    OF    A    HIT.       IT   PRINTS  THE 
PRIiVIOUS   AND   PKESENf   CONTENTS    01-    THE    UIT.       Tt-E  AUGUMENT 
PASSED    TC    lilT    IS    THE    NAME   OF    THE  UIT. 

*/ 

bits:      procedure( h I t)  ; 

OtCLARE    Hir  fJIT(l);. 

put    FlLE(5ySPHINT)    E  D  I  T  (  I  TEM  .  0  [  T  )  (  <:0L{  26  )  ,  F  (  2  )  ,  X(  7  )  , 

e  t  I ) )  : 

GET    FILE  (SYS  IN)    ED  I  T  (  t!  I  T  )  ( X  (  J  )  . '3  (  I  )  )  ; 

PUT    FJ LE( SYSPR J  NT)    E D I T ( U I T J  ( C CL ( a  5 )  ,  0 (  I  )  »  I 

GO  TC  next; 

END  : 
/* 

LETTER   UPDATES    THE    CCNTENTS    OF    A    CHARACTER    STRING.  IT 
Pi^INTS    THE    PHCVIOUS   AND    PKESENT    CONTENTS    OF  THE 
CHA;:?ACTErJ    STHING.      THE    ARGUMENTS   PASSED    TO   LETTER  ARS 
THE    NAME    AND   THE   LENGTH   OF    THE    CHARACTER  STP.ING. 

*/ 

t-ETTEP:    PROCECURE  (LET.LEN)  ; 

DECLARE    LET  CHARACTER!*); 

PUT    FILE{SY5PR INT)    ED  IT (  IT E V  )  ( COL ! 26 )  ,  F ( 2 ) ) ; 
PUT    i- ILE  (  SrSPR  INT)    EDIT  (LET  )  (X  (7  ),  A(LEN)  )  ; 
GET    FILE(SY5tN)    ED  I  T  (  LE  T  )  (  X  ( -3  )  ,  A  (  LEN  )  )  J 
P.'T    f- ILE(SYSPRINT)    E  D  :  T  (  LET  }  (  COL  (  85  )  ,  A  (  LE  N  >  )  ; 

Gu  TO  next; 

end; 

/  ► 

NUMBER    UPOATES    THE    CGNTENTS    OF    AN    ARITHMETIC  VALUF  Mh^CH 
IS    A    ViHOLE    NUMDER    WITH    UP   TO   TWO   DIGITS.       IT  PRINTS  THE 
PREVia'.j<i   AND   PRESENT   CONTENTS   Or    THE    NUMJER.  THE 
A^GU.Vi-NTS    PASSED    TO    NUMBER   ARE    THE    NAME    AND    THE  NUMfJER 
OF    DIGITS   OF    THE  NUVUER. 

♦/ 

number:    PROCeCURElNUM.LEN) ; 

PUT    FluE ( SYSPR INT )    E D I T  (  I T EM  )  { COL ( 26 ) , F ( 2 }  )  ; 
PUT    FILE(  ;;Y3PR  [NT)    E  0  1  T  (  NU  M)  (  X  (  /  )  ,  F  {  LE  N)  )  ; 
GET    FILEvSYSIN)    EO  I  T  (  NJ ;/  )  (  X  (  3  )  ,  F  (  L  EN  )  )  ; 
PUT    FiLE(SySPRINTJ    E  0 1  T  (  NUM  J  (  COL  (  £1 5  )  .  F  (  LEN  )  )  ; 

GO  TC  next; 

END; 
/* 

TIME    UPDATES    THE    CONTENTS   OF    A    DATE    .vHICH   CONSISTS  OF 
THE    YEA'J    AND    OUARTKR.       IT    PRINTS    THE    PREVIOUS  AND 
PRESENT    CONTENTS   OK    THE    DATE.      THE    ARGUMENT   PASSED  TO 
TIME    IS    THE    NAME   OF    THE  GATE. 

*/ 

PROCEDURE (KATE) ; 
DECLARE    I  GATE. 

2    YR    FIXED   ill  NARY, 
2    OTP    FIXED  OINARY; 
PUT    FILE(SYSPRINT)    E D I T (  I  TEM . D AT E )  ( COL ( 26 )  ,  F ( 2 ) , X(  7 1 , 

F  (  2  )  ,  X  (  2  )  .  F  (  1  )  )  : 
GET    F!i.F(SySIN)    ED  t  T  (  DA  T  E  )  (  X  CJ  )  .  F  (  2  )  ,  X  (  3  )  , (  I  )  )  ; 
PUT    FI LEI SY5PR INT)    E D I T { D A T E )  ( COLI 0 5 )  , F ( 2 )  , X ( 2 )  , F (  I )  )  ; 
GO   TO   NEXT ; 
ENO: 

end; 
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INTRODUCTION 

The  CEP  Management  Information  System  (MIS)  consists  of  programs 
which  manipulate  student  records  in  the  main  file.    The  result  is  to  print, 
in  a  variety  of  forms,  information  contained  within  the  file. 

The  users'  manual  presents  in  alphabetical  order  by  program  name 
the  basic  information  needed  in  order  to  execute  programs  in  the  system. 
Each  program  description  includes  the  following  items:    output  description, 
class  size,  number  of  tape  drives,  DO  statements,  data  setup,  data  re- 
cording or  request  form  if  applicable,  sample  data  deck,  and  sample  out- 
put. 

It  is  assumed  that  the  user  of  the  system  is  minimally  familiar 
with  both  Job  Control  Language  (JCL)  and  Programming  Language/One  (PL/1). 
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PROGRAMS  AVAILABLE  IN  THE  SYSTEM 


PROGRAM  NAME  DESCRIPTION 


ALL 
BASIC 

BUILD 
CHECK 

FILE 

GRADS 
LOCAL 

PRINT 

PURGE 

REQUEST 

SS 

TEAM 
UPDATE 


Prints  all  information  contained  in  the  main  file  on  those 
students  as  requested  by  faculty  members. 

Prints  personal  information  on  students  which  should  be 
checked  and  corrected  each  quarter  because  it  tends  to 
change. 

Adds  new  student  records  to  the  main  file. 

Prints  information  about  those  students  who  expect  to 
graduate  during  a  specified  quarter. 

Prints  an  ascending  list  of  the  student  records  in  the 
main  file  by  social  security  number. 

Deletes  records  of  CEP  graduates  from  the  main  file. 

Prints  an  alphabetical  list  of  the  local  addresses  of 
team  members  by  seminar. 

Prints  specific  data  on  those  students  as  requested  by 
faculty  members. 

Deletes  records  of  non-registered  students  from  the  main 
f  i  1  e . 

Prints  personal  information  of  those  students  requesting 
field  experience. 

Prints  an  alphabetical  list  of  team  members  and  their 
social  security  numbers  by  seminar. 

Prints  an  alphabetical  list  of  team  me.nbers  by  seminar. 

Updates  information  in  records  contained  in  the  main  file. 
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GENERAL  USER  INFORMATION 

The  prograins  in  the  MIS  should  be  executed  using  the  following  JCL 
cards  (see  p.  138).    All  underscored  entries  are  to  be  supplied  by  the 
user. 

One  or  all  of  the  DD  statements  will  be  used  depending  upon  the 
program  being  executed.    Only  those  DD  cards  which  are  specified  for  a 
program  should  be  included  since  each  PL/1  file  name  is  associated  with 
the    ddname  of  a  DD  statement  which  is  then  associated  with  a  specific 
dsname. 

All  numbers  punched  on  the  data  cards  should  be  right  justified 
in  the  columns  reserveci  for  that  number.    For  exam.ple,  many  programs  in 
the  system  require  a  data  card  containiric  in  columns  1-2  the  number  of 
teams  to  be  printed.    If  one  team  is  to  be  printed,  this  number  should  be 
punched  J_  in  column  2, 

All  data  items  not  described  as  being  numbers  are  either  character 
or  bit  strings.    String  data  should  be  left  justified  in  the  columns 
reserved  for  that  string.    For  example,  all  programs  in  the  system  require 
a  data  card  containing  the  current  date  in  columns  1-8.    If  the  current 
date  is  1/1/75,  this  character  string  should  be  punched  1/1/75     on  the  card 
in  columns  1-6. 

Dictionaries  for  the  various  codes  recorded  in  the  structure  PERSONAL 
are  included  at  the  end  of  the  manual. 

The  general  request  form  (see  p.  139)  can  be  used  by  the  team  leader 
to  obtain  output  from  the  following  programs:    BASIC,  CHECK,  FILE,  LOCAL, 
REQUEST,  5S,AND  TEAM. 
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1 


GENERAL  REQUEST  FORM 


Teatn  Number: 
Da  te : 


Directions:    Please  check  the  name  of  the  program  which  prints  the  infor- 
mation you  currently  need.    Indicate  other  in  Formation  if 
appl icable. 


BASIC 


_FIL.E 
LOCAL 


SS 


JEAM 
CHECK 


Prints  personal  information  on  students  which 
should  be  checked  and  corrected  each  quarter 
because  it  tends  to  change. 

Prints  an  ascending  list  of  the  student  records 
in  the  main  file  by  social  security  number. 

Prints  an  alphabetical  list  of  the  local 
addresses  of  team  members  by  seminar. 

Prints  an  alphabetical  list  of  team  members 
and  their  social  security  numbers  by  seminar. 

Prints  an  alphabetical  listof  team  members 
by  seminar. 

Prints  information  about  those  students  who 
expect  to  graduate  during  a  specified  quarter. 


Graduation  date:  

Year  (last  two  digits) :  ~" 

Quarter:  "     (Please  clTecir"the  quarter) 

Fall   (1)  Spring 

Winter   (2)  Surmier 


_REQUEST 

Date  for  upcoming  field  experience 


Prints  personal  information  on  those  students 
requesting  field  experience. 
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ALL 

Outpijt  Description  Prints  all  information  contained  in  the  main 

file  on  those  students  as  requested  by  faculty 
members. 


Oate  Setup 

Card  Contents  Column 


1  Lowest  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/13/75)  1-8 

3  Number  uf  teams  to  be  printed  1-2 
One  card  for 

each  team         Team  number  '1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  15-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  31 

Faculty  code  number  35-37 

Fourth  seminar  leader: 

Seminar  number  '  41 

Faculty  code  number  45-47 

One  card  for 

each  request     Faculty  cede  number  1-2 
Request  type  code  number  which  is  a 

print  status  code  associated 

with  the  program  named  PRINT  6 

Team  number  11 

Seminar  number  16 
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There  may  be  more  than  one  faculty  request.    If  there  are  niultiple 
faculty  requests,  one  request  set  should  follow  the  other. 

If  the  request  type  is  zero  the  following  cards  must  follow  the 
request. 

Card  Contents   Column 


One  card  for 
each  individual 

request  Social  security  number  of  the  student  1-9 

After  all 
social  security 

numbers  *  1 


Next  request 
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FACULTY  REQUEST 
ALL 


Request  for  for  informatiori  on  CEP  students. 

(faculty  members  name) 

Request  type  (check  one) 

 Seminar  group 


Team  Number: 
Seminar: 


Indi  vi duals 

"Please  list  the  social  security  numbers  of  those  students 
you  wish  to  include  in  this  request. 
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BASIC 


Output  Description  Prints  personal  information  on  students  which 

should  be  checked  and  corrected  each  quarter 
because  it  tends  to  change. 

Class  S 

Tape  Drives  1 

CD  Statements  Old 


Data  Setup 


Card  Contents   Column 


1  Lowest  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/1/75;  1-8 

3  Return  date  (e.g.  Jan.  13,  1975)  1-15 

4  Number  of  teams  to  be  printed  1-2 
One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  •  31 

Faculty  code  number  36-37 

Fourth  seminar  leader: 

Seminar  number  41 

Faculty  code  number  46-47 
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BUILD 


NEW 

Data  Setup 

Card  Contents  Column 


1  Type  code  number  1 

2  Date  (e.g.  1/1/75)  1-8 

One  card  set 
for  each  student 

1  Social  security  number  1-9 

2  NuiTiber  two  '  1-2 
Name: 

Last  6-19 

First  21-30 

Middle  36-49 

3  Number  six  1-2 
Permanent  address: 

Street  6-25 

City  '  31-50 

State  56-57 

Zip  code  61-65 

4  Number  eleven  1-2 
Permanent  phone  number  6-15 

5  Number  twelve  1-2 
Local  address: 

Street  6-25 

City  31-50 

State  56-57 

Zip  code  61-65 

6  Number  seventeen                       ,  1-2 
Local  phone  number  6-12 

7  Number  eighteen  1-2 
Sex  code                           .  6 
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Card   Contetits  Column 


8  Number  nineteen  1-2 
Bi  rthdate: 

Month  number  6-7 

Day  11-12 

Year  (last  two  digits)  16-17 

9  Number  tv/enty- three  1-2 
Marital  status  code  number  6 

10  Number  twenty- four  1-2 
Number  of  dependent  children  6 

11  Number  twenty- five  1-2 
,  Age  range  of  the  dependent  children: 

Youngest  6-7 

Oldest  11-12 

12  Number  twenty-six  1-2 
First  work  experience  code  number  6-7 
Second  work  experience  code  number  11-12 
Third  work  experience  code  number  16-17 
Fourth  work  experience  code  number  21-22 
Fifth  work  experience  code  number  26-27 
Sixth  work  experience  code  number  31-32 

13  Number  twenty-eight  1-2 
First  travel  experience  code  number  6-7 
Second  travel  experience  code  number  11-12 
Third  travel  experience  code  number  16-17 
Fourth  travel  experience  code  number  21-22 
Fifth  travel  experience  code  number  26-27 
Sixth  travel  experience  code  number  31-32 

14  Number  thirty  1-2 
Current  employment: 

Employer  .  6-25 

Hours  worked  per  week  31-32 

15  Number  thirty-three  (altered  to  input 

information  on  all  colleges  attended)  1-2 

Number  of  colleges  attended  6 

One  card  for 
each  college 

attended  College  name  11-40 

(include  the     Attendance  dates: 

first  college        Beginning  (i.e.  74  F)  ,  46-51 

on  card  14)  Ending  _  56-61 

16+  Number  thirty-eight  1-2 

GPA  code  number  6 
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Card  Contents  Column 


17+  Number  thirty- nine  1-2 

Myers  Briggs  type  code  number  6-7 

18+  Number  forty  1-2 

CEP  entrance  date: 

Year  (last  two  digits)  6-7 

Quarter  code  number  11 

Hours  entering  program  16-19 

19+  Number  forty-four  1-2 

Specialization  code  number  6 

20+  Number  forty- five  1-2 

Team  number  6 

21+  Number  forty-six  1-2 

Seminar  number  6 

22+  Number  forty-seven  1-2 

Expected  graduation  date: 

Year  (last  tv^o  digits)  ..  6-7 

Quarter  code  number  11 

23+  Number  fifty  (altered  to  input  all. 

required  course  information)  1-2 

Grade  for  EH  491  6 

Grade  for  MSG  260  11 

Grade  for  MSC  390  16 

Grade  for  MS  310  or  MS  311  21 

Grade  for  PHR  351  26 

Grade  for  PHR  373  31 

Grade  for  SCH  201  36 

Grade  for  Media  A  41 

Grade  for  Media  B  46 

24+  ^(trailer  label)  •  1 

After  executing  build  sort  the  records  in  the  file  in  ascending  order  by 
social  security  number.    The  system  supplied  sort  merge  routine  may  be 
used. 
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INFORMATION  ON  NEW  STUDENTS 


Directions:    Please  complete  the  information  below. 


Social  security  number  (1): 


Name  (2): 
Last: 
Fi  rst: 
Middle: 


Permanent  address  (6): 

Street:   - 

City:   

State:   

Zip  code:   

Permanent  phone  number  (11): 


Local  address  (12): 

Street:   

City:  

State:   

Zip  code:  

Local  phone  number  (17): 


Sex  (18):  Please  check  your  sex. 


Female 
Male 


Birthdate  (19): 


Month  number:   

Day:  _^  "  _ 

Year  (last  two  digits ) : 


Marital  status  (23): 


Please  check  your  current  marital  status 

Single   (1) 

Married   (2) 

Divorced   (3) 

Widowed   (4) 


Number  of  dependent  children  (24): 


Age  range  of  dependent  children  (25): 

Youngest:   

Oldest: 
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Work  experience  (26): 


Please  check  the  types  of  work  experience 


Travel  experience  (28) 


Current  work  experience  (30) 
Empl oyer: 


you  have  had. 
Babysitter 
Camp  counselor 
Clerk 
CI  ub  work 
Day  care  center 
Laboratory  technician 
Little  theatre 
Nursery  school 
Receptionist 
Recreation  center 
Salesperson 
Secretary 
Student  assistant 
Substitute 
Teachers  aid 
Tour  guide 
Tutor 

Other  work  classification 


Please  check  the  types  of  travel 
experiences  you  have  had. 

Af  ri  ca   

As  i  a   

Bermuda  and  Bahamas   

Canada   

Caribbean   

Central  America   

Europe   

Mexico   

Middle  East   

Pacific  islands   

U.S.A.  -  all  over   

Far  western  states   

Middle  Atlantic  states   

Midwestern  states   

New  England  states   

Plains  states   

Rocky  Mountain  states  ■   

Southeastern  states   

Southwestern  states   

World  -  all  over 


3) 
4) 
5) 
6) 
7) 

^! 

10) 

11) 

12) 
13) 
14) 
15) 
16) 
17) 
18) 


(  1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 
9) 
10) 
11) 
12) 
13) 
14) 
15) 
16) 
17) 
18) 
19) 
20) 


Hours  worked  per  week: 
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Colleges  attended  (33): 

Please  list  the  information  in  chronological  order. 

Beginning  Ending 

College                       attendance  date  attendance  date 


Current  grade  point  average  (38) 


Myers  Briggs  Type  (39): 


CEP  entrance  date  (40): 

Year  (last  two  digits); 
Quarter: 


Specialization  (44): 


Please  check  your  current  grade  point 
average. 

1 .5  or  less   (  1 ) 

1.6  -  2.0   (  2) 

2.1  -  2.5   (  3) 

2.6  -  3.0   (  4) 

3.1  -  3.5   (  5) 

3.6  -  4.0   (  6) 

Please  check  your  Myers  Briggs  Type. 


ISTJ 

(  1) 

ISTP 

(  2) 

ESTP 

(  3) 

ESTJ 

(  4) 

ISFJ 

(  5) 

ISFP 

(  6) 

ESFP 

(  7) 

ESFJ 

(  8) 

INFJ 

(  9) 

INFP 

(10) 

ENFP 

(11) 

ENFJ 

(12) 

INFJ 

(13) 

INTP 

(14) 

ENTP 

(15i 

ENTJ  ■ 

(16) 

Please  check  the  quarter  you  entered 
CEP. 

Fall   (  1) 

Winter   (  2) 

Spring   (  3) 

Summer   (  4) 

Please  check  your  specialization  in 
CEP. 

Elementary   (  1) 

Early  childhood   (  2) 
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Team  (45): 


Seminar  (46) 


Expected  date  of  graduation  (47); 

Year  (last  two  digits):   

Quarter: 


Required  courses  (50): 


Please  check  the  quarter  you  expect 


to  graduate. 
Fall 
Winter 
Spring 
Summer 


1) 
2) 
3) 
4) 


Please  check  the  required  courses  you 
have  completed  here  or  at  another 
institution.    List  the  grade  you 
received  if  you  remember  it. 
FH  491 


MSC  260 
MSC  390 

MS  310  or  MS  311 
PHR  361 
PHR  373 
SCH  201 
Hedia  A 
Media  B 


1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 
9) 
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CHECK 


Output  Description 
Class 

Tape  Drives 
DD  Statements 


Prints  information  about  those  students 
v;ho  expect  to  graduate  during  a 
specified  quarter. 


1 

OLD 


Data  Setup 
Card 


Contents 


Col umn 


One  card  for 
each  team 


Lowest  team  number  to  be  printed 
Highest  team  number  to  be  printed 

Date  (e.g.  1/13/75) 

Graduation  date: 

Year  (last  two  digits) 
Quarter  code  number 

Number  of  teams  to  be  printed 


Team  number 

Number  of  seminars  to  be  printed 
First  seminar  leader: 

Seminar  number 

Faculty  code  number 
Second  seminar  leader: 

Seminar  number 

Faculty  code  number 
Third  seminar  leader: 

Seminar  number 

Faculty  code  number 
Fourth  seminar  leader: 

Seminar  number 

Faculty  code  number 


1 

6 

1-8 


1-2 
6 

1-2 


1 
6 

11 

16-17 
21 

26-27 
31 

36-37 
41 

46-47 
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FILE 

Output  Description  Prints  an  ascending  list  of  the 

student  records  in  the  main  file 
by  social  security  number. 


Data  Setup 

Card    Contents  Column 


1  Lov/est  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/13/73)  1-8 

3  Number  of  teams  to  be  printed  1-2 
One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  31 

Faculty  code  number  36-37 

Fourth  seminar  leader: 

Seminar  number  41 

Faculty  code  number  46-47 
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GRADS 


Output  Description 
Class 

Tapa  Drives 
DD  Statements 


Deletes  records  of  CEP  graduates 
from  the  main  file. 


OLD 
NEW 
DELETE 


LRECL=94,  BLK.SIZE=5392 


Data  Setup 
Card 


Contents 


Column 


1 
2 


One  card  for 
each 

graduate 


Date  (e.g.  1/13/75) 

Graduation  date: 

Year  (last  two  digits) 
Quarter  code  nuniber 


Social  security  number  of  the  graduate 


1-8 


1-2 
6 


1-9 


Graduates  must  be  listed  in  ascending  order  by  social  security  number. 
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CEP  GRADUATES 


Team  Number: 
Date: 


Directions:  Please  list  in  ascending  order  by  social  security  number  ] 
the  name  and  associated  social  security  number  of  all  i! 
students  who  have  graduated  this  quarter. 


Name 


Social  security  number 
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LOCAL 

Prirtts  an  alphabetical  list  of  the 
local  addresses  of  team  members  by 
seminar. 


Data  Setup 

Card   Contents  Column 


1  Lov;est  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/13/77.)  1-8 

3  Number  of  teams  to  be  printed         '  1-2 
One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  coda  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  31 

Faculty  code  number  35-37 

Fourth  seminar  leader: 

Seminar  number  41 

Faculty  code  number  46-47 
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PRINT 


Output  Description 
CI  ass 

Tape  Drives 
DD  Statements 


Prints  specific  data  on  those  students 
as  requested  by  faculty  members. 


M 


1 

OLD 


Data  Setup 
Card 


Contents 


1 

Three  cards  for 
each  request 


Date  (e.g.  1/13/75) 


1 


Faculty  code  number 
Request  type  code  number 
Team  number 
Seminar  nuniier 

Myers  Briggs  status  code  number 
Required  courses: 
Status  code  number 

Code  number  of  the  required  course  to  be 
printed  (needed  for  status  code  1) 
Registration: 

Status  code  number 

Number  of  the  quarter  in  the  program  to 

be  printed  (needed  for  status  code  1) 
Date  of  the  registration  to  be  printed 

(needed  for  status  code -3) 

Year  (last  two  digits) 

Qua'^ter  code  number 
Learning  activities: 
Status  code  number 

Area  number  to  be  printed  (needed  for 

status  codes  1  and  2) 
Activity  number  to  be  printed  (needed 

for  status  code  1 ) 
Learning  activity  summary: 
Status  code  number 

Area  number  to  be  printed  (needed  for 
status  code  1 )  . 


Column 


1--8 


1-2 
6 
11 
16 

1 

16 

21-22 
31 

35-  37 

36-  37 
41 

46 

51-52 
56-57 
61 

66-67 


Card 


Contents 


175 


Col umn 


3  Field  experiences: 

Status  code  number  1 
Number  of  the  field  experience  to  be 
printed  (needed  for  status  code  1)  6-7 
Field  experience  summary: 

Status  code  number  -  16 

Number  of  the  field  experience  summary 
to  be  printed  (needed  for  status  code  1)  21-22 
Community  experience  status  code  number  31 


There  may  be  more  than  one  faculty  request.    If  there  are  multiple 
faculty  requests,  one  request  set  should  follow  the  other. 

If  the  request  type  is  zero  the  following  cards  must  follow  the 
request. 


Card  Contents  Col  umn 

One  card  for 
each  individual 

request  Social  security  number  of  the  student  1-9 

After  all 
social  security 

nunt)ers  *  ] 


Next  request 
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PRINT  STATUS  CODES 
Code 

Code  Name  Number  Effect 


Request  type 
Myers  Briggs 
Required  courses 

Registration 


Learning  activities 


Learning  activity  sumnary 


Field  experience 


Field  experience 
s  uirima  ry 


0 
1 

0 
1 

0 
1 
2 


0 
1 

2 

3 

0 
1 
2 


0 
1 
2 

0 
1 
2 


0 
1 
2 


Comrriunity  experience  0 

1 


Individual 
Group 

Suppress  printing 
Print 

Suppress  printing 
Print  one  required  course 
Print  all  required  courses  which 
are  nonblank 

Suppress  printing 

Print  one  registration  by  quarter 

in  the  program 
Print  all  registrations  which  are 

nonblank 
Print  one  registration  by  date 

Suppress  printing 
Print  one  learning  activity 
Print  learning  activities  in  one 
area 

Print  all  nonblank  learning 
activi  ties 

Suppress  printing 
Print  one  area  summary 
Print  all  area  summaries 

Suppress  printing 
Print  one  field  experience 
Print  all  nonblank  field 
experiences 

Suppress  printing 
Print  one  field  experience  summary 
Print  all  nonblank  field  experience 
summaries 

Suppress  printing 
Print 
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FACULTY  REQUEST 
PRINT 


Request  by  for  information  on  CEP  students. 

(faculty  members  name  J" 

For  each  category  below  please  indicate  the  information  which  you  want  by 

checking  the  appropriate  response.    If  additional  information  is  needed 

for  a  request  (e.g.  area  name)  please  fill  in  the  blank  below  the  response 
with  the  necessary  information. 

Request  type  (check  one): 
 ^Seminar  group 

Team  number:  

Semi  nar:  

 Individuals 

Please  list  the  social  security  numbers  of  those  students  you 

wish  to  include  in  this  request. 


Myers  Briggs  Type  Indicator  (check  one) 

Do  not  print   (0) 

Print  (1) 

Required  courses  (check  one) 

Do  not  print  (0) 
Print  a  specific  required  course  (l  j 

Course  name_^  

Print  all  required  courses  (2) 

Registration  information  (check  one) 

Do  not  print  (0) 
Print  a  specific  registration  by  quarter 

in  the  program  (i.e.  first,  second,  .  .  .)  (l) 

Quarter  in  the  program__^    

Print  all  quarters  registered  (2) 

Print  a  specific  registration  by  date  ^3) 

Year   ^  ' 

Quarter  #  

Learning  activities  (check  one) 

Do  not  print  /q\ 
Print  a  specific  learning  activity       .   (1) 

Area  #     ' 

Activity  #  ' 

Print  all  learning  activiti'es  completed  in  a  specific 

area  /p\ 

Area  #   ^  ' 

Print  all  learning  activities  completed  (3) 
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Learning  activity  sumnid ry  (check  one) 
Do  not  print 

Print  a  specific  area  summary. 

Area  #   

Print  all  area  summaries 

Field  experience  (check  one) 
Do  not  print  ' 
Print  a  specific  field  experience 

Field  experience  ^  

Print  all  field  experiences  completed 

Field  experience  summary  (check  one) 
Do  not  print 

Print  a  specific  field  experience  summary 

Field  experience  #  

Print  all  field  experience  summaries 

Community  experience  (check  one) 
Do  not  print 
Print 
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Output  Description 
Class 

Tape  Drives 
DD  Stateinents 

Data  Setup 

Card  Contents  

1  Date  (e.g.  1/13/75) 


PURGE 

Deletes  records  of  non-registered 
students  from  the  main  file. 

S 

3 

OLD 
NEW 

DELETE  LRECL=3693,BLKSIZE-3693 

 Col umn 

1-8 


One  card  for 
each  non- 
registered 

student  Social  security  number  of  the  non-registered 

student  1-9 


Non-registered  students  to  be  eliminated  from  the  main  file  mu^  be 
listed  in  ascending  order  by  social  security  number. 
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NON-REGISTERED  STUDENTS 

Team  Number:   

Date:   

Directions:      Please  list  in  ascending  order  by  social  security  number 
the  name  and  associated  social  security  number  of  all 
students  who  are  not  registered  this  quarter. 

Name  Social  security  number 


00  o 

0> 

CO 

N 

tn 

•-4 

0> 

CD 

N 

>o 

10 

<}■ 

f) 

CM 

tH 

i0  o 

o 

0!) 

to 

n 

lOO 

0» 

tu 

fO 

N 

10 

Q. 

LL 

CM 

O 

u. 

^  o 

00 

Ui 

Irt 

< 

tvi 

a 

r)  o 

a> 

tu 

to 

.J 

.  N 

QL 

^ 

10 

(VI 

»H 

CV)  o 

0» 

•0 

^» 

to 

(M 

O 

rn  iM  \c  ^ 

Of} 

If,  —  C\J  CO 

N 

10  CVJ    <j-  >o 

»0 

Nin  r<  n  -« 

10 

■* 

'0  u>  -1  UI  in 

N    ^  in  cvj 

--1  t-l  C\J 

185 


a 

K 

a 

u 


3  < 

Li  a 
z 

•u 
m 

ZJ  IJ 

r  V) 

3 

I-  ll 

r  r 

L.,  h- 

oo 

D 


a 
a 
< 

u 


•-» 

-J 

z 

CE 
O 

u 

LU  Z 

(.0 

C  O 
<  ^ 

u  a 


u.  J 
az 

I- 

J  > 

< 
1.') 

z  < 
<  — 


'XI 

i  jn  — 
r}fr)    M  -n 
;^  o 

Ofi")  -. 

n  -■ 
*|c;v    ir>  .n 

r.r^  -  j\ 
•p  —  lit  :x! 

■/;|-«  -I  -M 


Z  ii 

'J  - 
'-•  < 

a 


i-1 

r'  -r 

Ji 

<l 

to 

Ul| 

v^l 

a  o 

Ul 

>l 

-J 

1 

z 

\  J 

-ri 

U| 

'1  iX.  >- 

N 

-<  ao 

Ul 

s 

186 


REQUEST 

Prints  personal  information  on  those 
students  requesting  field  experience. 


Data  Setup 

Card  Contents   Col  umn 


1  Lowest  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/13/75)  1-8 

3  Request  date  (e.g.  Spring  1975)  fo.r 

the  upcoming  field  experience  1-15 

4  Number  of  teams  to  be  printed  1-2 
One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  .  31 

Faculty  code  number  36-37 

Fourth  seminar  leader: 

Seminar  number  41 

Faculty  code  number  46-47 
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SS 


Output  Description 


Prints  an  alphabetical  list  of  team 
members  and  their  social  security 
numbers  by  seminar. 


Class  S 
Tape  Drives  1 
DD  Statements  ■  Oi.D 


Data  Setup 


Card  Contents  Column 


1  l.ovi/est  team  number  to  be  printed  1 
Highest  team  nuiTiber  to  be  printed  6 

2  Date  (e.g.  1/13/73)  1-8 

3  Number  of  teams  to  be  printed  1-2 
One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  cods  number  26-27 

Third  seminar  leader: 

Seminar  number  31 

Faculty  code  number  36-37 

Fourth  seminar  leader: 

Seminar  number  41 

Faculty  code  number  46-47 
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TEAM 

Prints  an  alphabeti 
members  by  seminar. 


Data  Setup 

Card  Contents  Column 


1  Lowest  team  number  to  be  printed  1 
Highest  team  number  to  be  printed  6 

2  Date  (e.g.  1/13/75)  1-8 

3  Number  of  teams  to  be  printed  1-2 

One  card  for 

each  team         Team  number  1 

Number  of  seminars  to  be  printed  6 

First  seminar  leader: 

Seminar  number  11 

Faculty  code  number  16-17 

Second  seminar  leader: 

Seminar  number  21 

Faculty  code  number  26-27 

Third  seminar  leader: 

Seminar  number  31 

Faculty  code  number  36-37 

Fourth  seminar  leader: 

Seminar  nutrfcer  41 

Faculty  code  number  46-47 
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UPDATE 


Output  Description 
Class 

Tape  Drives 
DD  Statements 


Update?  information  in  records  con- 
tained in  the  main  file. 


M 
2 


OLD 
NEW 


Data  Setup 
Card 


Contents 


Column 


1 

One  set  for 
each  student 
record  being 
updated 


Date  (e.g.  1/13/75) 


1-8 


1 


Social  security  number 


1-9 


Updates 


Last  card  of 

the  set  Number  ninety-nine  (trailer  label)  1-2 


■|96 

General  Information  on  UPDATE 

Since  it  is  vital  for  information  in  the  main  file  to  be  kept  up- 
to-date,  any  changes  of  information  on  students  should  be  entered  into 
the  system  as  soon  as  possible. 

Update  information  for  the  main  file  can  be  obtained  on  a  regular 
basis  from  various  sources.    Included  among  these  sources  are  the 
following  forms  and  corrected  printouts: 

1 .  Corrected  output  from  BASIC 

2.  Corrected  output  from  REQUEST 

3.  Learning  activity  slips 

4.  Registration  information 

5.  Field  placement  infom^ation 

If  any  information  on  a  student  changes,  she  (he)  should  inform 
her  (his)  seminar  leader.    For  instance: 

If  a  student  goes  through  drop/add,  she  (he)  should  inform  her  (hi 

seminar  leader  of  changes  to  her  (his)  registration. 
If  a  student  becomes  employed  she  (he)  should  inform  her  (his) 

seminar  leader  of  the  employer  and  hours  worked  per  week. 
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Update  Numbers 

UPDATE  is  designed  to  change  information  contained  in  specific 
student  records  within  the  main  file.    An  update  number  is  used  to  in- 
dicate which  data  item  or  items,  are  to  be  altered.    The  structure,  PERSONAL, 
shown  on  the  following  page  lists  the  update  number  next  to  that  which  it 
updates.    If  the  update  number  appears  next  to  an  elementary  data  item, 
then  only  this  item  is  updated.    If  the  update  number  appears  next  to  a 
minor  structure  name  (e.g.  NAME)  then  all  of  the  elementary  data  items  in 
this  minor  structure  (e.g.  LAST,  FIRST,  and  MIDDLE)  will  be  updated.  When 
a  minor  structure  is  updated  all  information  to  be  retained  must  be  placed 
on  the  update  card,  otherv/ise  the  numeric  values  will  revert  to  zero  and 
the  character  strings  to  blank.    If  the  update  number  appears  next  to  an 
array  name,  check  the  corresponding  description  of  the  contents  of  the 
data  card  to  see  whether  the  whole  array  or  a  single  item  of  the  array  is 
to  be  updated.    If  a  whole  array  is  to  be  updated,  then  all  information 
to  be  retained  must  be  included  on  the  update  card. 
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STr< uc.  ruRE  update 

NUMOUR 


2  suc.sf-:c_NO  CHArMCTen(9 ) »  t 

;?    MA  Mf£  ,  2 

J   LAST    CllAT.ACTE'?<il4)  .  3 

3    FIwST    CHAr<  ACTER:<  I  0)  ,  4 

3    MI  DOLE    CHAr^ACTEfU  l-*)  »  5 

2    Pf-IPM    ADDR,  6 

3    ST^TeET   CHA'^ACTE'P.(20)  .  ■    7  • 

?.    CITY    CHARACTER(  20  >  .  8 

3    STATE    CHAR  ACTER  {  2)  ,  9 

J    ZIP    CHA;- ACTElK  5  >  t  10 

2    PERM_PHONE    CM  A^  AC  TEfM  I  0  )  »  il 

2    LGCAl._AOO!=!  t  12. 

3    STREET    CHA-?  ACTEr:-:  20)  .  13 

3    CITY   CHARACTEi^  (  20)  ,  14 

i    STATE    CH  A.?  ACT£R;(  2)  ,  13 

3  ZIP  cha:^acte?(5  ).  16 

2   LOCAL_PHQNE    CHA.-t  ACTER  (  7)  »  17 

2    SEX    CHAR ACTER ( i ) ,  18 

2    fjIRTH    DATE,  19 

3    MONTH    FIXED    BlNARYt  20 

3    DAY    FIXED    BINA.^Yt  21 

3    YR   FIXED    BINARY,                                              '  22 

2   MA^^ITAL  _5TAT    FIXED   BINAR.Yi  23 

2    DEP_ CHILDREN    FIXED    BINARY,  24 

2    AGE_:^  ANGE(  2)     FIXE!^    BINARY,  25 

2    ViORl<_EXP(6)    FIXED    BINARY,  26 

27 

2   TRAVEL   EXP(6)    FIXED   BINARY,  23 

29 

2   CUR_EMPLOYMENT,  30 

3   EMPLOYER    CHARAC TER ( 20 ) »  31 

3    HRS_PER_WK    FIXED    BINARY ,  32 

2   COL_ATT{ 4) ,  33 

3    INSTITUTION    CHAR(30),  34 

3    DATES.  35 

GETjIN    CHARACrER(6i  ,  36 

4    END    CHARACTER (6) ,  37 

2   CPA    FIXED    BINARY,                      ^  33 

2    MYERS„BRIGGS    FIXED    BINARY,  39 

2    CEP_ENTP ANCE ,  40 

3    YR    FIXED    BINARY,  41 

3    OTR    FIXED   BINARY,  42 

3   HR5_C0.M    FIXED    D  EC  I  MAL  (  4  ,  I  )  ,  43 

2    SPECIALIZATION   FIXED    BINARY,  44 

2    TEAM    FIXED   BINARY,  45 

2    SEMINAR    FIXED    BINARY.  46 

2    EXP_GR AD_DATc  ,  47 

3    VR    FIXED   binary:,  48 

3   QTR    FIXED   BINARY,  49. 

2    REO    .:OUPSE_GRAOE(9  )    CHAR ACTER (  I  )  ,  50 

2   Rt"  G  I  STf^  ATI  ON  (  8)  ,  51 

3    DATE,  52 

4    YR    FIXED    BINARY,  S3 

4    OT^    FIXED    BINARY,  54 

3    COURSES (5) ,  55 

4    CnURSE_Na    CHAPACTER( 6)  ,  56 

4    HRS    HIXcD    BINARY.  57 

4    GRADE    CHARACTER ( 1 ) ,  53 

2   LEARNING    A (OB),  59 

3   FACULTY    FIXED   B  UJARY  ,  60 

3    DATE   CHARACTER! 6 ) ,                                     .  61 

3   C0MMENT(6)     FIXED   BINARY,             .  62 

3    ACT  I  V  I TY_ T I TLE    FIXED    BINARYi  63 

3    GROU^    01 T( I ) ,  64 

3    SUBSTITUTE    BlT(iU,  65 

2    FIELD(7),  66 


199 


3    S  C HO  n L    (•  I  XC:  D  F3  I  M  A f{  Y  » 

3  G  ro  A.  f )  f;  !- 1 X 1-  o  0  1  r-j  a  v  • 

3   l.tl  VIZL   r  I  X£0    B  I  MAR  Y  > 
3  DATE. 

f^    Y%-    f-IXED  BINARY. 
OTi?    FIXfD  iilNARV, 
3    CLAGSNOOM   FIXhD  OiNAU/. 

3  teac.h;:k  ciiakactEiU  i •i- )  » 

i  F   nOLC(6)    FIXKJ  uir<At;'Y, 

3    3T'^i:nGTH3(  ■■'O    FIXED  OINAJ^Y, 

3    'VEAK\E5'5CS(  6)    FIXED  UINARY, 

CO.VMUNI  TY  , 

3    AGV-NCY    CHAR  ACTE«  (  20  )  • 

3    AGENCY_ru:P    CMAf^  AC  I'Er^  (  I  4  )  » 

3    L'/.  V EL    r  I  X£  0    B  I  N A c^Y  . 

3  DATE, 

A    Yl^    FIXED  iJnJARY. 

ii.    QTR    FIXED    a  I  NARY  ♦ 
3    C    ^OLFC^)    FIXED  aiNAPxY, 
3   C    COMMENfC'*)    FIXFiD  3INARY; 
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For  each  item  to  be  updated,  the  update  number  is  in  columns  1-2.  The 
new  data  which  follows  the  update  number  must  be  coded  according  to  the 
specified  format. 


Update 


Number 

Card 

Contents 

Col  umn 

1 

1 

1  0 
i  -c 

Social  security  number 

6-14 

2 

1 

1 

MUllrUc  1  IrWU 

1  9 
1  "C 

Name: 

Last 

6-19 

r  1  r  o  I* 

Mi  rifilp 

"iC  AQ 

3 

1 

Nurrihpr  thrpp 

l~C 

I  r^*^t  namp 

L>  U  ^  If     1  1  U 1 1 IC 

D- 1  y 

4 

1 

Number  four 

1-2 

r  1  1  o  t  Mdlilc 

0- 1  b 

5 

1 

Number  five 

1-2 

rl  1  UU  1  c    1  idlllt: 

6-19 

6 

1 

Number  six 

1-2 

r  tr  iiiaiicii  u  duarcss  . 

Street 

6-25 

City 

31-50 

56-57 

Zip  code 

61-65 

7 

1 
1 

iiuiiiDer  seven 

1-2 

Street  in  permanent  address 

6-25 

1 
1 

iNumoer  e i gnu 

1-2 

City  in  permanent  address 

6-25 

9 

1 

1 

I1UIMUCI     II  1  lie 

1-2 

ouct'-t:  III  ptirmanenc  aauress 

6-7 

10 

1 

Number  ten 

1-2 

Zip  code  in  permanent  address 

6-10 

11 

1 

Number  eleven 

1-2 

Permanent  phone  number 

6-15 

12 

1 

Number  twelve 

1-2 

Local  address: 

Street 

6-25 

City 

31-50 

State 

56-57 

Zip  code 

61-65 
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Update 

Number         Card      Contents  Coluirn 


1  "3 
1  i 

1           Number  thirteen 

Street  in  local  address 

1  -c 
6-25 

1  /I 
i  H 

1           Number  fourteen 

City  in  local  address 

1  ~c 
6-25 

1  3 

1           iNumoer  tiTteen 

State  in  local  address 

6-7 

1  0 

1           Number  sixteen 

Zip  code  in  local  address 

1  -2 
6-10 

17 

1           Number  seventeen 

Local  phone  number 

1-2 
6-12 

1  o 

1           Number  eighteen 
Sex  code 

1-2 
6 

1  y 

1           Number  nineteen 
Birth  date: 
Month  number 
Day 

Year  (last  two  divgits) 

I-  2 

6-7 

II-  12 
16-17 

1           iNumuer  twenty 

Month  number  in  birthdate 

1-2 
6-7 

c  1 

1           Number  twenty-one 
Day  in  birthdate 

1-2 
6-7 

9? 

C-L. 

1           iNumoer  twenty-two 

Year  (last  two  digits)  in  birthdate 

1-2 
6-7 

23 

1           Number  twenty-three 

Marit^dl  status  code  number 

1-2 
6 

24 

1           Number  twenty- four 

Number  of  dependent  children 

1-2 
6 

25 

1           Number  twenty- five 

Age  range  of  the  dependent  children: 
Youngest 
Oldest 

I-  2 

6-7 

II-  12 

26 

1           Number  twenty-six 

First  work  experience  code  number 
Second  work  experience,  code  number 
Third  work  experience  code  number 
Fourth  work  experience  code  number 
Fifth  work  experience  code  number 
Sixth  work  experience  code  number 

I-  2 
6-7 

II-  12 
16-17 
21-22 
26-27 
31-32 
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Update 

Nuir^ber         Card      Contents  Col  uinn 


27  1  Number  twenty-seven  1-2 

Add  a  new  work  experience  code  number  6-7 

28  1  Number  twenty-eight  1-2 

First  travel  experience  code  number  6-7 

Second  travel  experience  code  number  11-12 

Third  travel  experience  code  number  16-17 

Fourth  travel  experience  code  number  21-22 

Fifth  travel  experience  code  number  26-27 

Sixth  travel  experience  code  number  31-32 

29  1  Number  twenty-nine  1-2 

Add  a  new  travel  experience  code  number  6-7 

30  1  Number  thirty  1-2 

Current  employment: 

Employer  6-25 

Hours  worked  per  week  31-32 

31  1  Number  thirty-one  1-2 

Employer  in  current  employment  6-25 

32  1  Number  thirty- two  1-2 

Hours  worked  per  week  in  current 

employment  6-7 

33  1  Number  thirty-three  1-2 

Number  of  the  college    attended  6-7 

College  name  11-40 
Attendance  dates: 

Beginning  (e.g.  74  F)  46-51 

Ending  56-61 

34  1  Number  thirty-four  1-2 

Number  of  the  college  attended  6-7 

College  name  11-40 

35  1  Number  thirty-five  1-2 

Number  of  the  college  attended  6-7 

Attendance  dates: 

Beginning  (e.g.  74  F)  11-16 

Ending  21-26 

36  1  Number  thirty-six  1-2 

Number  of  the  college  attended  6-7 

Beginning  attendance  date  (e.g.  74  F)  11-16 

37  1  Number  thirty-seven  1-2 

Number  of  the  college  attended  6-7 

Ending  attendance  date  (e.g.  74  F)  11-16 


4- 
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Update 

Number  Card      Contents  Column 


38               1           Number  thirty-eight  1-2 

GPA  code  number  6 

33               1           Number  thirty-nine  1-2 

Myers  Briggs,  type  code  number  .  6-7 

40  1           Number  forty  1-2 

CEP  Entrance  date: 

Year  (last  two  digits)  6-7 

Quarter  code  number  11 

Hours  entering  program  16-19 

41  1           Number  forty-one  1-2 

.    Year  (last  two  digits)  in  CEP  entrance 

date  6-7 

42  1           Number  forty- two  1-2 

Quarter  code  number  in  CEP  entrance  date  6 

43  1           Number  forty- three  1-2 

Hours  entering  program  6-9 

44  1           Number  forty-four  '  1-2 

Specialization  code  number  6 

45  1           Number  forty-five  1-2 . 

Team  number  6 

46  1           Number  forty-six  1-2 

Seminar  number  6 

47  1           Number  forty-seven  1-2 

Expected  graduation  date: 

Year  (last  two  digits)  6-7 

Quarter  code  number  11 

48  1           Number  forty-eight  1-2 

Year  (last  two  digits)  in  expected 

graduation  date  6-7 

49  1           Number  forty-nine  1-2 

Quarter  code  number  in  expected 

graduation  date  6 

50  1           Number  fifty          *  '  i-2 

Required  course  code  number  .  6-7 

Grade  ]] 
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Update 

Number  Card      Contents  Column 

51  1           Number  fifty-one  1-2 

Registration  number  (quarter  in  CEP)  6-7 
Registration  date: 

Year  (last  two  digits)  11-12 

Quarter  code  number  16 
Courses  taken: 
First  course: 

Course  number  21-26 

Credit  hours  31-32 

Grade  36 
Second  course: 

Course  number  41-46 

Credit  hours  51-52 

Grade  56 
Third  course: 

Course  number  61-66 

Credit  hours  71-72 

Grade  76 
2             Fourth  course: 

Course  number  6-11 

Credit  hours  16-17 

Grade  21 
Fifth  course: 

Course  number  26-31 

Credit  hours  36-37 

Grade  41 

52  1           Number  fifty- two  1-2 

Registration  number  (quarter  in  CEP)  6-7 

Registration  date: 

Year  (last  two  digits)  11-12 

Quarter  code  number  16 

53  1           Number  fifty-three  1-2 

Registration  number  (quarter  in  CEP)  6-7 

Year  (last  two  digits)  in  registration 

date  11-12 

54  1           Number  fifty- four  1-2 

Registration  number  (quarter  in  CEP)  6-7 
Quarter  code  number  in  registration  date  11 

55  1           Number  fifty- five  1-2 

Registration  number  (quarter  in  CEP)  6-7 

Courses  taken: 
First  course: 

Course  number  '  11-16 

Credit  hours         '  21-22 

Grc^rie  26 
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Update 
Number 


Card  Contents 


Column 


57 


58 


59 


Second  course: 

Course  number 

Credit  hours 

Grade 
Third  course: 

Course  number 

Credit  hours 

Grade 
Fourth  course: 

Course  number 

Credit  hours 

Grade 
Fifth  course: 

Course  number 

Credit  hours 

Grade 

Number  fifty-six 

Registration  number  (quarter  in  CEP) 
Cou^'se  entry  number 
Course  number 

Number  fifty-seven 

Registration  number  (quarter  in  CEP) 

Course  entry  number 

Credit  hours 

Number  fifty-eight 

Registration  number  (quarter  in  CEP) 

Course  entry  number 

Grade 

Number  fifty-nine 

Substantive  area  code  number 

Activity  number 

Faculty  code  number 

Completion  date 

Learning  activity  comments: 
First  comment  code  number 
Second  comment  code  number 
Third  comment  code  number 
Fourth  comment  code  number 
Fifth  comment  code  number 
Sixth  comment  code  number 

Activity  title  code  number 

Group  status  code 

Substitute  status  coda 


31-36 
41-42 
46 

51-56 
61-62 
65 

6-n 

16-17 
21 

26-31 
36-37 
41 

I-  2 
6-7 

II-  12 
16-21 

I-  2 
6-7 

II-  12 
16-17 

I-  2 
6-7 

II-  12 
16 

I-  2 
6-7 

II-  12 
15-17 
21-26 

31-32 

36-37 

41-42 

46-47 

51-52 

56-57 

61-63 

66 

71 
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Update 


Number 

Card 

Contents 

Col  umn 

60 

1 

Number  si  xty 

1  -2 

Substantive  area  code  number 

6-7 

Activity  number 

11    1  o 

1  1  -  1  <: 

Faculty  code  number 

16-17 

51 

1 

Number  si  xty-one 

1  ~d 

Substantive  area  code  number 

6-7 

Activity  number 

11-12 

Completion  date  (e.g.  month,  day,  year 

0! 1 375 ) 

15-21 

o2 

1 

Number  sixty-two 

1  -2 

Substantive  area  code  number 

6-7 

Activity  number 

11-12 

Learning  activity  comments: 

First  comment  code  number 

16-17 

Second  comment  code  number 

21-22 

Third  comment  code  number 

26-27 

Fourth  comment  code  number 

31-32 

Fifth  comment  code  number 

36-37 

Sixth  com^nent  code  number 

41-42 

53 

1 

Number  sixty-three 

1-2 

Substantive  area  code  number 

6-7 

Activity  number 

11-12 

Activity  title  code  number 

16-18 

C/l 

54 

1 

Number  sixty-four 

1-2 

Substantive  area  code  number 

6-7 

Activity  number 

11-12 

Group  status  code 

16 

00 

1 

Number  si xty -five 

1-2 

Substantive  area  code  number 

6-7 

Activity  number 

11-12 

Substitute  status  code 

16 

DO 

1 

Numb'^r  si xty-si x 

1-2 

Field  experience  number 

6-7 

School  code  number 

11-12 

Grade  code  number 

16-17 

Level  in  CEP  code  number 

21 

Date: 

Year  (last  two  digits) 

26-27 

Quarter  code  number 

31 

Classroom  type  code  number 

36 

Teachers  name 

41-54 
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Update 

Number         Card      Contents  Column 


2  Field  experience  roles: 

First  role  code  number  6-7 

Second  role  code  number  11-12 

Third  role  code  number  16-17 

Fourth  role  code  number  21-22 

Fifth  role'  code  number  ■  26-27 

Sixth  role  code  number  31-32 
Field  experience  strengths: 

First  strength  code  number  36-37 

Second  strength  code  number  41-42 

Third  strength  code  number  46-47 

Fourth  strength  code  number  51-52 

Fifth  strength  code  number  56-57 

Sixth  strength  code  number  61-62 

3  '    Field  experience  needs: 

First  weaknesses  code  number  6-7 

Second  weaknesses  code  number  11-12 

Third  weaknesses  code  number  16-17 

Fourth  weaknesses  code  number  21-22 

Fifth  weaknesses  code  number  26-27 

Sixth  weaknesses  code  number  31-32 

67  1  Number  sixty-seven  ■  1-2 

Field  experience  number  6-7 

School  code  number  11-12 

68  1  Number  sixty-eight  1-2 

Field  experience  number  6-7 

Grade  code  number  11-12 

69  1  Number  sixty-nine  1-2 

Field  experience  number  6-7 

Level  in  CEP  code  number  11 

70  1  Number  seventy  1-2 

Field  experience  number  "  6-7 
Date: 

Year  (last  two  digits)  11-12 

Quarter  code  number  16 

71  1  Number  seventy-one  1-2 

Field  experience  number  6-7 
Year  (last  two  digits)  in  field 

experience  date  11-12 

72  1  Number  seventy-two  1-2 

Field  experience  number        '  6-7 
Quarter  code  number  in  field 

experience  date  11 
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Update 

Number         Card      Contents  Column 


73  1  Number  seventy-three  1-2 

Field  experience  number  6-7 

Classroom  type  code  number  11-12 

74  1  Number  seventy-four  1-2 

Field  experience  number  6-7 

Teachers  name  11-24 

75  1  Number  seventy-five  1-2 

Field  experience  number  6-7 

Field  experience  roles: 

First  role  code  number  11-12 

Second  role  code  number  16-17 

Third  role  code  number  21-22 

Fourth  role  code  number  26-27 

Fifth  role  code  number  31-32 

Sixth  role  code  number  36-37 


76  1  Number  seventy-six  1-2 

Field  experience  number  6-7 

Field  experience  strengths: 

First  strength  code  number  11-12 

Second  strength  code  number  16-17 

Third  strength  code  number  21-22 

Fourth  strength  code  number  26-27 

Fifth  strength  code  number  31-32 

Sixth  strength  code  number  36-37 

77  1  Number  seventy-seven  1-2 

Field  experience  number  6-7 

Field  experience  needs: 

First  weaknesses  code  number  11-12 

Second  weaknesses  code  number  16-17 

Third  weaknesses  code  number  21-22 

Fourth  weaknesses  code,  number  26-27 

Fifth  weaknesses  code  number  31-32 
Sixth  weaknesses  code  number             .  36-37 

78  1  Number  seventy-eight  1-2 

Agency  name  6-25 

Agency  representative  31-44 

Level  in  CEP  code  number  46 
Date: 

Year  (last  two  digits)  51-52 

Quarter  code  number  56 
2           Community  experience  roles: 

First  role  code  number  6-7 

Second  role  code  number  11-12 

Third  role  code  number  16-17 

Fourth  role  code  number  21-22 


2oy 


Upddte 

NiCTber  Card      Contents       Column 


Community  experience  conmients: 


First  comment  code  number  ] 
Second  coinment  code  number 
Third  comment  code  number 
Fourth  comment  code  number 

26-27 
31-32 
36-37 
41-42 

79 

1 

Number  seventy-nine 
Agency  name 

1-2 
6-25 

80 

1 

Number  eighty 

Agency  representative 

1-2 
6-19 

81 

1 

Number  eighty-one 

Level  in  CEP  code  number 

1-2 
6 

82 

1 

Number  eighty-two 

Date  in  community  experience: 

Year  (last  two  digits) 

Quarter  code  number 

1-2 

6-7 
11 

83 

1 

Number  eighty-three 
Year  (last  two  digits)  in  community 
experience  date 

1-2 
6-7 

84 

1 

Number  eighty-four 
Quarter  code  number  in  community 
experience  date 

1-2 
6 

85 

1 

Number  eighty-five 

Community  experience  roles: 
First  role  f^ode  numhpr 
Second  role  code  number 
Third  role  code  number 
Fourth  role  code  number 

I-  2 

D-/ 

II-  12 
16-17 
21-22 

86 

1 

Number  eighty-six 

Comrunity  experience  comments: 
First  comment  code  number 
Second  comment  code  number 
Third  comment  code  number 
Fourth  comment  code  number 

I-  2 

6-7 

II-  12 
16-17 
21-22 

?AQ 


COMMUNITY  EXPERIENCE  PLACEMENT  FORM 


Social  security  number: 


Name: 

Last: 
Fi  rst: 
Middle: 

Agency  name: 


Agency  representative's  name  (first  initial  and  last  name): 


Level  in  CEP:        .  Please  check  your  level  in 

Initiate 
Assistant 
.  Associate 
Intensive 

Community  experience  date: 

Year  (last  two  digits):  

Quarter:  "         P'lease  check  the  quarter. 

Fal  1 

Winter 

Spring 

Summer 
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FIELD  PLACEMENT  FORM 


Social  security  number 
Name: 

Last:   

First:   

Middle: 


Quarter  number: 


School 


Grade: 


Level  in  CEP: 


Please  check  how  many  quarters  you  have 

been  placed  in  local  schools. 

One   (  1) 

Two 

Three  ~ 

Four  "~ 

Fi  ve  ~ 

Six  ~ 

Seven  ~ 


.(  2) 

-{  3) 

.(  4) 

.(  5) 


.(  6) 
.(  7) 


Please  check  the  name  of  the  school  in 
which  you  have  been  placed. 

J.  J.  Finley  (  i) 

Hawthorne  (  2) 

Sidney  Lanier  (  3) 

Littlewood  (  4) 

Shell  (  5) 

Tewilliger  (  5) 

UK  7) 


Westwood 


Please  check  the  grade  level  at  which 
you  have  been  placed. 
Fi  rst 

Second  ~ 

Third  - 

Fourth  ~ 

Fifth  - 

Sixth  ~ 

Seventh  ~ 

Eighth  •  - 

Pre-kindergarten  ~ 
Kindergarten 

Multi-age  primary  ~ 
Multi-age  upper  elementary  ~" 
Middle  school 

Special  education  ~~ 

Mus  i  c  — 

Reading  — 

P.E.           -  — 


_{  1) 
_(  2) 
.(  3) 
_(  4) 
.(  5) 
.{  6) 
.{  7) 
.(  8) 
.(  9) 
.(10) 
(11) 
(12) 
(13) 


(16) 
(17) 


Please  check  your  level  in  CEP, 
Initiate 
Assistant 
Associate 
Intensive 


4  1) 

ill 

i  4) 
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Field  experience  date: 
Year  (last  two  di 
Quarter: 


gits): 


Classroom  type; 


Please  check  the quarter. 
Fall 
Winter 
Spring 
Summer 


(  1) 
.(  2) 
.(  3) 
.{  4) 


in 


Please  check  the  type  of  classroom 

which  you  have  been  placed. 

Basic  skills   (  1) 

Free   (  2) 

Open   (  3) 

Standard   (  4) 


Directing  teacher's  name  (first  initial  and  last  name): 
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(  ^CHUOL)  (G.^AOE   LiVLL   OK  AREA) 


(  OIKtiCT  ItlG    TtACHfc:.;.S~3rGNA  rUHtF 
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PLI-.ASli   CH'cCK   Ut'    ro    SIX    IIl-.-U".    UfiUilW    .VHIOll    OKSCKJm.  THIS 

(-"RGOPiicr  I  vi-.  rtA<:t,E(<s  rl  lci  opi-'oktuni  r  it  s  and  k^pons  ituui  Ties) 

*HILE    TUACHINO      «ITH    YUU    TU I  5   PAST  OUAHTfiR. 


ADMI  NI  STE.^eO  SOCIO-G:?AM 

AOMl N I STtft £0    STANDARD  I ^fcD  TEST 

ADMI  N  ISTiiPcO  TESTS 

ARi^ANCdD   CLASS.<OOM   CN V  I  QH MM tNT 

Ak^AANGtO   SCHOOL.    VISIT   t-"KOM  A  ABSC 

ATTLNDhO    SCHOOL  KU.NCTION 

UZ:  Vt.LGPcL)    LflAMNlNG  ChNTtPS 

OI.tc.CTEO    PRODUCTION    OF    A  Pl.AY  0!? 

OirttCTtD    SHAr^ING  ACTIVirieS 

tNSICHMENT  ACTIVITIES 

LVALUATiiD  PAPERS 

KVALOATtD    STUOUNT  PROGRESS 

GEN.    ACriViriES    AND  PROCEDURES 

INDIVIOUAl.    INSTRUCT  ICN 

LAriGE    Ci<OUP  iNSTkUCTION 

LEAD   CuASSPOOM  DISCUSSION 

MADE    HOME  VISIT 

MADE   MATERIALS    ANO/OR  DISPLAYS 

OaSE.xVED  CLASS 

OOSEf<V£0   PSYCH  SERVICES 

QOSEP.VED    TEAH  TEACHING 

PARENT    TEACH£r~  CGNPC.=?ENCE 

PLANNED    ACTIVITIES   AROUND  UNITS 

Pi_AKNEU    AND    SUPERVISED  ACTIVITIES 

PLANNED   GAMES   AND  ACTIVITIES 

PLANNED    Gi<OUP  INSTRUCTION 

PLANNED    WORK  TIME 

PLAYED   GAMES    WITH  CHILDREN 

PREPARED    INDEPENDENT  WORK 

PREPARED   LESSONS   PO-J  CLASS 

-E'VO    i.TO<lES    TO  CLASS 

SMALL   G'^OU;^  INSTRUCTION 

so/lb    TEAM  TEACHING 

TAUGHT  A^r 

TAUGHT   LANGUAGE  ARTS 

TAUGHT  MATH 

TAUGHT  MUSIC 

TAUGHT  P.E. 

TAUGHT  SCIENCE 

TAUGHT    SUCIAL  STUDIES 

TAUGHT  kEAOING 

TEAM  PLANNING 

Si'/ALL    (j.MfJUP  INSTRUCTION 

USt-.O    AUDI  0- V  I  SUAL   EOUir  HENT 

wO^KdV)    IN    ALL  AREAS 

WORKED    .vITH    cK-<  CHILDREN 

WORKED   ivITH   PQ^^EIGN  STUDENTS 

wCRKEO    WITH  GROUPS 

WOkKED    with   LEARNING  CENTERS 


I) 

2) 
3) 
4) 
5) 
6> 
7) 
3) 
9) 


(  IQ  ) 
(11) 
(  12) 
{  I  J) 
(It) 
(15) 
(  16) 
(  17) 
(  18) 
{  19) 
(20) 
(21) 
(  22) 
(2J) 
(  24) 
(  25) 
(  25) 
(  27) 
(28) 
(  29) 
(JO) 
(  Jl  ) 
(  32) 
(33) 
(  3A» 
(35) 
(361 
(37) 
(38) 
(39) 
(  40) 

(^; ) 

(  42) 
(  43) 
(44) 
(  45) 
(46) 
(47) 
(  48) 
(49) 


Pl-t'ASFI  CH!-:C«   VP    TO    SIX    ITi'^MS   llirLOW   WlliCH   CMAfiACTKRIZK  THIS 


/>OAr->TS   MATPPI4LS    TO   ACH  !  !£  Vli  M  EN  T   LEVEL   !  (  I) 

AWAPt    Gf-    INDIVIDUAL    INTEiiE.jTS    (  2i 

AVAhE   OF    INDIVIDUAL    NiZtDS    (  -1) 

AWARE    OF    I.MDIVIO'JAL   PUOOLErJS    ( 

CAPAeLE    (  5) 

CHl^CudN   LIKE    HEh(HIM)    (  6) 

CCNCtKNEU    rtfTH    CHILDS    WELFARE    (  7) 

CONFIDENT    (  8) 

ccNsrr.ucrs  good  evaluation  iNsr:?uMENT    (  9) 

CCOPtSAIlVE    (10) 

CKEAriVE  ^.   (11) 

DEFEN0A9LE    <  12> 

DhSIKE    TO  HE!_P  CHILDREN    (IJ) 

OESlr-.-d    TO   uEAhN    (14) 

EFFECTIVE    CLASS>;COM   CONT^^OL    (15) 

EMPHA5t^;^S    INDIVIDUAL   NEEDS    (16) 

cVALUAfuii    ACCURATELY    (17) 

EXCELLENT    PLANNER    (13) 

EXCELLHNr   RA.'^Poar    (19) 

EXCELL-;Nr    .^EuATION   WITH  STAFF  _  (20) 

EXCELi-CNT   iiELATION    WITH   PA.^ENTS    (21) 

EXCEPTIONALLY   CAPABLE    IN   A,^T    (22) 

EXcCPTI ONALLY    CAPABLE    IN  LANG. A.    (23) 

EXCEf=  T  1 0 -JAUI.  Y    CAPABLE    IN   MATH  ~      Z  (24) 

EXCEPTIONALLY    CAPABLE    IN   MUSIC  (  2i) 

EXCEPT luNALuY   CAPAULE    IN   HEADING  (26) 

EXCEPTIONALLY    CAPAGLE    IN   SCIENCE    (27) 

EXECPT lONALLY    CAPAbLE    IN  5.S.  _  (28) 

FuEXIbLE    _  (29) 

GAINb    STUDENTS    Tr<'J3T  (30) 

GCES  B-^iYOND    WHAT    15    EXPECTEO  (31) 

GOOD   RAPPORT    (32) 

GOOD   VOICE    CONTROL  _  (33) 

GOOD    ^ITI!   cut  LDT-^EN  (34) 

Gf'OwTH    IN    OtPENOIiilLITY  ~_~  (35) 

nLi.PS    STUDENTS    FEEL    SUCCESSFUL  _  (36) 

INNOVATIVE  (37) 

INTEREST    IN    CHILDP.ENS   WORK  ~~  (38) 

INITIATES    CLASS    INVOLVEMENT  _  (39) 

KNOv-LEOGEABLE    (40) 

LA.-JGE    GftOUP    WORK  _  (41) 

Ll^ES    THIS   AGE    G«CUP  (42) 

LIKES    .V0>?KING   -.VITH    CHILDREN    (43) 

iVOTIVATES    AND    INTERESTS    STUDENTS  ~      ~  (44) 

PATIENT  _  (4'.i) 

PEPSERVE  ^ENCE    (■•Jft) 

PLANS   EFFECTIVELY  _  _  (4  7) 

POSITIVE    ATTITUDE  ~_I  (4a) 

PROFESSIONAL    PrtCMISE  (49) 

PKOMPT  _  (50) 

HESPCNDS    v^ELL    TO    CRITICISM  "  (51) 

SEES    WHAT    NEEDS    TO   ti'd   DONE  (52) 

SENSE    GF    KESPONSiOlLlTY  (53) 

SENSITIVE    TO    STUDENTS    FEELINGS  "  (54) 

SHOWS    INITIATIVE  _  (55) 

S.'4ALL    G^OUP    WORK  _~  (56) 

SYMPATHETIC  ~  (57) 

TEACHES  FROM   CHILD^^ENS   INTERESTS  "  (58) 

TREATS    CHILDREN   FAIRLY  "  (59) 

UNDERSTANDS    CHILDREN  ~   ~  (60) 

USES    irjD  I  V  I  IJU'VL   OlFFERENCeS  I~  (61) 

USES   OUTSIDE    r.hSOURCES    WtLL  ~  (62) 

USES  PEE-i    TEACHING  'Z  (63) 

VERY   RESPONSIOLE  ~   "  (64) 

WANTS   CHILDREN  TO  UNDERSTAND   CONCEPTS  "  ~  (65) 

WELL    OmGANI,!EO  ~  (66) 

WELL    PREPARED  (67) 

tfC.-<K    WITH   LEARNING   PROBLEMS  (60) 
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PLf-ASH  CMtCCK.  Ui'  TO  SIX  ITtlMS  'JlfLOW  WHICH  IJlihJriFY  THIS 
IMPUOVEMENT 


— — -  -~ 

(     1  } 

HF-TTKK    WAPPni<T    WITH    STJDT  NT  1 

(  ^i 

{  31 

h*if^  T  T  Kji     <  Ah'P       T    W  I  T  M  '  PAR  t  N  TS 

(  4) 

df-TinK    UNOVi  P- S  T  ANQ  1  NG   OP  CHiLOKl£N 

(  5) 

i  ir  T  T  r-"  -v    VM  I  r       C  tlN  T  R  f";!  > 

■ 

(  6) 

V.  I  1      L.  IN  U       »^  ■              t_  /\  1     l-  lA   L  I-  .  *  V* 

—  — — -* 

<  7) 

rr.NiTi-i^N  H  fiw    thii  niJFN*^  wFi  FA^t^ 

■~  - 

(  8) 

O  T     r  T  P  t    T  Kl  '     F  X  P  F  R  f  F  K  r  F 

(  9) 

F  V  A 1   t  J  A  T  1  ■  j  I-J    F  X  P '<  I  F  iNi  C  ( * 

— * — 

(10) 

r-  ^  P  F  r.  I  F-  M  r"  F    O  I     F  r  r  I  N  t «    L  F  '5  5  QN  S 

(It) 

 — 

<  I  2) 

F  y  Oi"    I  1    F    T  n    u  1'  c  F       i-  a  ii F  *^ 

—  —  

{  I  J) 

F  V  Of!  '*  1  1  3  P      Tn     t  Ipp  Fi?      <".  \'  ^^  I)  F 

— - 

{  1  'V  ) 

 ' 

(15) 

1   AKdiJAi.F     A^^T'^  FXPF'-^IFNCF 



(  1  6) 

"* —  

(  17) 

1   n  *.  P  K     I  M  r  F  M  F     !'  X  P  F  R  I  F  N  f~  F 

~  — 

(18) 



(19) 

MH  ivF     F  hJ  T  HI  I      T  A  '^W 

—  —  

(  20) 

—  

(21) 

M  n  -<  F     T  F  A  F  H  1  M  ^    T  F  <"  HM  1  (1  ( J  F"  ^ 

—  

( ) 

f»  I       I  r     F  X  P  F  ,5  I  F  NC  F 

— ■  ~ — 

(  2J) 

P-r  .  FXPFi^IFMrF 

— — — ' 

(24.) 

PD'^IT  rJF     AXr  ITtiDF 

— — •— 

(25) 

PFAHlNf.     -  ^PFOl!"Mf'P 



(  26) 

cz-Tefori;  FXP'^^^IFNCI* 

— — — 

(  P7) 

Si^ALL    GROiJP    ci  XP  tJ-";  I  tNCH 

(  23  ) 

SCCI^I-    STUOI£S  ?iXPERItNCE 

(29) 



(JO) 

TF  ~  T  I  t-ii-,    r-  tPF  ,<  1 1-  HCF 

—  

(  J  1  ) 

—  

(  32  ) 

—  — — — 

(  33) 

Tfi    HF     A.\fAF'F     HF     1"  Nfi  T  V  I  f  Jl  J  /  J      P~'l2r.l  F'M*^ 



(  .1  *  ) 

Tn    tlF    ^:"l(t^lF  inFMT 



(35) 

TFlriFri^rATlVF 

4                      I—               >^  L_          1      %    V  4^ 



(  36) 

TO    Liiz.  DH^FNIDAtiLi? 

1  *  .#  1 — .        V-**        -            ■  w  1^  Ib» 

 - 

(  3  7  ) 

—  

(  33  ) 

TFt    OF    1  F'-i*~.  SFN^TTfWP 



Tn    "F    ilrJ  r,AM  f  /  F(l 

—  • 



Tn     HF  PVTTFMT 

T  n    R  F    P  ^  F  P  A    F  r> 





(All 

in     PF      13  (  f  N'C  T  1  1  A  1 



JU    Ui^     r<  ^  or' U  N  5  4  Ol.C- 



/  A  1^  1 

T/T     FF     JFl  AxFl"^ 



(  /Lf\\ 
I  Of 

1  U    ut.        I         I  i^^ij     I  U    ritt-r*    ^_  1 1 1  L.U.'-(  t  PI . 

i  \ 
I  *♦  /  J 





f  A  A  1 

#      CI  1 
\  "^V  t 

TO   CONSTRUCT   EVALUATION  INSTRUMENTS 



(50) 

TG    CCNT;?ai.    LARGC  GSOUPS 

(51? 

TC   EMPHASI  /it-:    INDIVIDUAL  NEEDS 

(  52) 

TU    HfiLP    STUUE:NT<i  f-E'iL  SUC.CCI3SFUU 

(53) 

TG    IMTtATi;    Class  INVGLVtMENT 

(  5/V) 

TO   PLAN  UEfTER 

(55) 

TO   PRifPA.^f;  LNITS 

(56) 

TO    RhCOGHllE    INDIVIDUAL  NEEDS 

{  1.7) 

TO   RELATE  t3ETTEH 

(58) 

TO    RdSPUNO    r3ETTER    TO   CS  I  TIC  ISM 

(59) 

TO    SHCvii  INlTIAT'Ve 

(  60) 

TO    TEACH   Fr'.OM   CHILOREN5  INTEREST 

(61  ) 

TO   TREAT    STUOEfUS  FAIRLY 

(  62) 

TO    USE   OUTSIDE    RtSGURCES  BETTER 

(  63) 

TO   USE   PEE,?  TEACHING 

(  64  ) 

WORK    IN    CREATIVE  AREAS 

(  65) 

WORK    WITH    LEARNING  PROBLEMS 

(66) 
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LEARNING  ACTIVITY  SLIP 

Student's  name:   

Student's  social  security  number:  

Team  number:   

Seminar:  

Date:   

Area:   

Activity  #:   

Activity  title:   

Was  this  activity  done  v/ith  a  group  of  other  students?    Yes   No 

Was  this  activity  a  substitute  for  a  regular  activity?    Yes   No 
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Please  check  up  to  six  comments  below  which  characterize  the  student's 
performance  on  this  activity. 


Accurate 

Adaptable 

Brief 

Careful  use  of  ideas 

Command  of  subject 

Competent 

Complete 

Creative 

Critical  independent 

thinker 
Descri  pti  ve 
Energeti  c 
Enthusiastic 
Excellent 
Excel  lent  ideas 
Fai  r 

Flexible 
Good 

Good  classroom 
applications 
Good  criteria 
Imaginati  ve 
Interesting 
Logical 
Motivated 

Meeds  more  supportive 

evidence 
Needs  more  documentation 


( 


1)  Needs  to  be  more  concise 

2)  Not  enough  sources 

3)  Original  ideas 

4)  Precise 

5)  Poor 

6)  Reasoned  inference 

7)  Reliable 

8)  Relates  well  to  people 
Resourceful 

9)  Satisfactory 

10)  Scientific 

11)  Scholarly 

12)  Sequitur 

13)  Steady  pursuit  of  task 

14)  Stimulating 

15)  Systematic 

16)  Thoughtfully  applied 

17)  Too  general 

Well  chosen  readings 

18)  Well  discussed 

19)  Well  done 

20)  Well  researched 

21)  Well  stated 

22)  Work  competent  if 

23)  attentive 
Work  shows  humor 

24)  Writing  difficult  to 

25)  read 


(26 
"(27 

(28 
"(29 
J  30 

(31 
132 

(33 
1(34 

(35 

(36 
"(37 
_(38 

(39) 
"(40) 
"(41) 

(42) 
"(43) 
"(44) 
"(45) 
"(46) 
747) 
.(48) 

(49) 
.(50) 

.(51) 


Instructor's  signature: 
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REGISTRATION  INFORMATION  FORM 


Social  security  number: 
Name: 

Last:   

Fi  rs  t : 


Middle: 


Registration  number: 


Registration  date: 

Year  (last  two  digits) 
Quarter: 


Courses ; 


Please  check  the  number  of  quarters 
you  have  registered  in  CEP  (include 
this  registration). 

One   (  1) 

Two   (  2) 

Three   (  3) 

Four   (  4) 

Five   (  5) 

Six   (  6) 

Seven   (  7) 

Eight   (  8) 


Please  check  the  quarter. 
Fall 
Winter 
Spring 
Summer 


(  2) 
{  3) 
_(  4) 


Please  list  the  course  number  and 
associated  credit  hours  for  each 
course  you  are  taking  this  quarter. 


Course  number 


Credit  hours 
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DICTIONARY  FOR    THE   AREA  COOES 


1  ART 

2  CUR=J  I  CULUI'A 

3  HUMAN   GROWTH    AND  OEV. 

4  LANGUAGE  ARTS 

5  MATH 

6  MUSIC 

7  READING 

8  SCIENCE 

9  SOCIAL  FOUNDATIONS 

10  SOCIAL  STUDIES 

11  BEYCNO  MINIMUM 


DICTIONARY    FOP    ''HE   CLASSROOM   TYPE  CODES 


£QOE_NyMB£R 
0 
1 


JCIEM-NAMg 

BASIC  SKILLS 

FPEE 

OPEN 

STANDARD 


DICTIONARY   FOR    THE   COMMUNITY   CQMiVENT  COOES 


£C0E_ykiNlSE2  iIEM_NAViS 
0 

1  COMMON  SENSE 

2  COOPERATIVE 

3  CREATIVE  THINKING 

4  ENTHUSIASTIC 

5  INDUSTRIOUS 

6  INITIATIVE 

7  RELATES    WELL    WITH  CHILDREN 

8  WORKS    WELL    WITH  CHILDREN 

9  WORKS    WELL   WITH  COWORKERS 
10  WORKS    WELL    WITH  SUPERVISOR 
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DICTIONARY    FOR   THE   COMMUNITY    EXPEr?IENCE  ROLE  CODES 


0 

1  ANSWERED  PHONE 

2  ASSISTED    IN   SPECIAL  CLASSES 

3  COLLECTED   SAMPLES    OF    DISPLAY  USAGE 
CONDUCTED  TOU.^S 

5  GENERAL    NURSERY  ACTIVITIES 

6  OBSERVED 

7  ORGANIZED  GAMES 

a  PAPT    TIME  LIBRARIAN 

^  f'LAYEO    WITH  CHILORiEN 

10  VISITED  PATIENTS 

11  WORKED   WITH    ARTS    AND  CRAFTS 

12  WORKED    WITH    FREE   PLAY  ACTIVITIES 

13  WORKED   WITH   MUSIC    AND    READINESS  ACTIVITIES 

14  WROTE   ANCEDOTAL  SITUIATI0N3 
15 


DICTIONARY    FOR    THE  FACULTY    NAME  CODES 


NUMBER 

ITEM  I^JAME 

1 

BERNARD 

2 

CUPRAN 

3 

DETURE 

4 

FEY 

5 

GOLDMAN 

6 

HI LLIARO 

7 

JESTER 

8 

KI  NZER 

9 

LEWIS 

1  0 

L ITCHER 

I  1 

MARTI NELLO 

12 

NEW COMB 

13 

OLSON 

1  4 

PENLAND 

1  5 

ROWE 

16 

SERAPHINE 

17 

SHEA 

1  0 

SM  ITH 

1  9 

TI  SON 

20 

WILMOT 

21 

KRALL 

22 

CREEDON 

23 

LEV  INK 

24 

HEDGES 

25 

GR  I  MM 

26 

DORMAN 

,  -  228 

DICTIONARY    FOR   THE  FIE^D   EXPERIENCE:  NEEO  COOES 


0 

1  ART  EXPERIENCE 

2  BETTER    RAPPORT    WITH  STUDENTS 

3  BETTER    RAPPORT    WITH  STAFF 

<^  BETTER   RAPPORT    WITH  PARENTS 

5  BETTER    UNDERSTANDING   OF  CHILDREN 

6  BETTER    VOICE  CONTROL 

7  CHALKBOARD  EXPERIENCE 

a  CONCERN  FOR    CHILDRENS  WELFARE 

9  DISCIPLINE  EXPERIENCE 

10  EVALUATION  EXPERIENCE 

11  EXPERIEMCE    DIRECTING  LESSONS 

12  EXPOSURE    TO   L3WER  GRADES 

13  EXPOSURE    TO   MORE  GRADES 

14  EXPOSURE    TO   UPPER  GRADES 

15  GROUP    MANAGEMENT  EXPERIENCE 

16  LANGUAGE   ARTS  EXPERIENCE 

17  LARGE    GROUP  EXPERIENCE 
10  LOWER    INCOME  EXPERIENCE 

19  MATH  EXPERIENCE 

20  MORE  ENTHUSIASM 

21  MORE  PERSERVERENCE 

22  MORE   TEACHING  TECHNIQUES 

23  MUSIC  EXPECJIENCE 

24  P.E.  EXPERIENCE 

25  POSITIVE  ATTITUDE 

26  READING  EXPERIENCE 

27  SCIENCE  EXPERIENCE 

28  SMALL   GROUP  EXPERIENCE 

29  SOCIAL    STUOIF.S  EXPERIENCE 

30  TEACHING  EXPERIENCE 

31  TESTING  EXPERIENCE. 

32  TO    ADAPT  BETTER 

33  TO   HE    AWARE   OF    INDIVIDUAL  INTERESTS 

34  TO   DE    AWARE    OF    INDIVIDUAL  PROBLEMS 

35  TO    BE  CONFIDENT 

36  TO   BE  CREATIVE 

37  TO    BE  DEPENDABLE 

38  TO   BE  INNOVATIVE 

39  TO   BE  LESS  SENSITIVE 

40  TO    BE  ORGANISED 

41  TO    BE    MOPE  SENSITIVE 

42  TO   HE  PATIENT 

43  TO    BE  PREPARED 

44  TO    BE  PUNCTUAL 

45  TO   BE  RESPONSIBLE 

46  TO    BE  RELAXED 

47  TO   BE    WILLING    TO   HELP  CHILDREN 

48  TO    BE    WILLING    TO   HELP  COWORKERS 

49  TO   COMPLETE  PROJECTS 

50  TO   CONSTRUCT    EVALUATION  INSTRUMENTS 

51  TO    CONTROL    LARGE  GROUPS 

52  TO   EMPHASIZE    INDIVIDUAL  NEEDS 

53  TO   HELP    STUDENTS  FEEL  SUCCESSFUL 

54  TO    INITIATE    CLASS  INVOLVEMENT 

55  TO   PLAN  BETTER 

56  TO    PREPARE  UNITS 

Sr  TO   RECOGNIZE    INDIVIDUAL  NEEDS 

58  TO   RELATE  BETTER 

59  TO   RESPOND    BETTER    TO  CRITICISM 
6  0  TO    SHOW  INITIATIVE 

61  TO    TEACH    FROM    CHILDRENS  INTEREST 

62  TO    TREAT    STUDENTS  FAIRLY 

63  TO    LS5    OUTSIDE  .RESOURCES  BETTER 

64  TO   USE   PEER  TEACHING 

65  WORK    IN   CREATIVE  AREAS 
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DICTICNARY    FOR   THE   FIELD   fIXP(IR£EKCE  NECD   CODES  (COMTINUEO) 


66  WQkK    '.HTH    LEARNING  PROBLEMS 

67  WORK    IN  ALL    AREAS  ' 

68  WORK  WITH  DIFFERENT  MATERIALS 
69 

70 
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OICTIONA^Y   FOR    THE   FIELD   EXPERIE'NCE  ROLE  CDOES 


0 

1  ADMINtSTERcO  SOCIO'-GPAM 

2  ADMINISTL  SL:D   STANDARDIZED  TEST 

3  AD'^IN  I  STCRED  TESTS 

4  ARPANGED   CLASSROOM  ENVIORNMENT 

5  ARRANGED   SCHOOL    VISIT    FROM    A  RESOURCE  PERSON 

6  ATTENDED    SCHOOL  FUNCTION 

7  DEVELOPED   LEARNING  CENTERS 

3  DlHlECTED   PHOOUCTION   OF   A  PLAY   □«  PROGRAM 

9  DIRECTED    SHARING  ACTIVITIES 

10  ENRICHMENT  ACTIVITIES 

11  EVALUATED  PAPERS 

12  EVALUATED    STUDENT  PROGRESS 

13  GEN.    ACTIVITIES   AND  PROCEDURES 

14  INDIVIDUAL  INSTRUCTION 

15  LAPGE    GROUP  INSTRUCTION 

16  LEAD  CLASSROOM  DISCUSSION 

17  MADE    HOME  VISIT 

13  MADE   MATERIALS    AND/OR  DISPLAYS 

10  OBSERVED  CLASS 

20  03SE.TVED  PSYCH  SERVICES 

21  OBSERVED    TEAM  TEACHING 

22  PARENT    TEACHER  CONFERENCE 

23  PLANNED   ACTIVITIES    AROUND  UNITS 
2-T  PLANNED   AND   SUPERVISED  ACTIVITIES 

25  PLANNED    GAMES    AND  ACTIVITIES 

26  PLANNED   GROUP  INSTRUCTION 

27  PLANNED    WORK  TIME 

28  PLAYED    GAMES   WITH  CHILDREN 

29  PREPARED    INDEPENDENT  WORK 

30  PREPARED    LESSONS  FOR  CLASS 

31  READ    STORIES    TO  CLASS 

32  SMALL   GROUP  INSTRUCTION 

33  SOME    TEAM  TEACHING 

34  TAUGHT  ART 

35  TAUGHT    LANGUAGE  ARTS 

36  TAUGHT  MATH 

37  TAUGHT  MUSIC 

38  TAUGHT  P.E. 

39  TAUGHT  SCIENCE 

40  TAUGHT    SOCIAL  STUDIES 

41  TAUGHT  READING 

42  TEAM  PLANNING 

43  SMALL    GROUP  INSTRUCTION 

44  USED    AUDIO-VISUAL  EQUIPMENT 

45  WORKED    IN    ALL  AREAS 

46  WORKED   WITH  EMR  CHILDREN 

47  WORKED   WITH   FOREIGN  STUDENTS 

48  WORKED    WITH  GROUPS 

49  WORKED   WITH  LEARNING  CENTERS 

50  USED   DIFFERENT    TEACHING  TECHNIQUES 

51  INDIVIDUAL   CLASSROCf/  CONFERENCES 
52 

53 
54 
55 
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DICTIONARY   FOR    THE   FIELD   EXPERIENCE   STRENGTH  CODES 


CQOE.NUMDEB  IIF.M_NA^E 


0 

1  ADAPTS   ^lATFRIALS  TO   ACHIEVEMENT  LEVELS 

2  AWAPH    OF    INDIVIDUAL  INTERESTS 

3  AWARE   OF    INDIVIDUAL  NEEDS 

A  AWAPE    OF    INDIVIDUAL  PROBLEMS 

5  CAPABLE 

6  CHILDREN   LIKE  HEP(HIM) 

7  CONCERNED    WITH    CHILDS  WELFARE 
3  CONFIDENT 

9  CONSTRUCTS   GOOD  EVALUATION  INSTRUMENTS 

10  COOPERATIVE 

11  CEATIVE 

12  DEPENDABLE 

13  DESIRE    TO   HELP  CHILDREN 
l-*^  DESIRE    TO  LEARN 

15  EFFECTIVE    CLASSROOM  CONTROL 

16  EMPHASIZES    IMDIVIDUAL  NEEDS 

17  EVALUATES  ACCURATELY 
13  EXCELLENT  PLANNER 

19  EXCELLENT  PAPPGRT 

2  0  EXCELLENT    RELATION    WITH  STAFF 

21  EXCELLENT    RELATION    WITH  PARENTS 

22  EXCEPT lONALLY    CAPA3LE    IN  ART 

23  EXECPTIONALLY    CAPABLE    IN    LANG. A. 

24  EXCEPTIONALLY    CAPABLE    IN  MATH 

25  EXCEPTIONALLY    CAPABLE    IN  MUSIC 

26  EXCEPTIONALLY    CAPABLE    IN  READING 

27  EXCEPTIONALLY    CAPABLE    IN  SCIENCE 

28  EXECPTIONALLY    CAPABLE    IN  S.S. 

29  FLEXIBLE 

30  GAINS    STUDENTS  TRUST 

31  GOES   BEYOND    WHAT    IS  EXPECTED 

32  GOOD  RAPPORT 

33  GOOD   VOICE  CONTROL 

34  GOOD    WITH  CHILDREN 

35  GROWTH    IN    DEPEND  IB  IL I TY 

36  HELPS   STUDENTS    FEEL  SUCCESSFUL 

37  INNOVATIVE 

38  INTEREST    IN   CHILDRHNS  WORK 

39  INITIATES  CLASS  INVOLVEMENT 

40  KNOWLEDGEABLE 

41  LARGE   GROUP  WORK 

42  LIKES    THIS   AGE  GROUP 

43  LIKES   WG:^KING    WITH  CHILDREN 

44  MOTIVATES    AND    INTERESTS  STUDENTS 

45  PATIENT 

46  PEPSERVERENCE 

47  PLANS  EFFECTIVELY 

48  POSITIVE  ATTITUDE 

49  PROFESSIONAL  PROMISE 
5  0  PROMPT 

51  RESPLNOS   WELL   TO  CRITICISM 

52  SEES   WHAT   NEEDS   TO    BE  DONE 

53  SENSE    OF  RESPONSIBILITY 

54  SENSITIVE    TO    STUDENTS  FEELINGS 

55  SHOWS  INITIATIVE 

56  SMALL    G^OUP  WORK 

57  SYMPATHETIC 

56  TEACHES   FROM   CHILDRENS  INTERESTS 

59  TREATS    CHILDREN  FAIRLY 

60  UNDERSTANDS  CHILDREN 

61  USES    INDIVIDUAL  DIFFERENCES 

62  USES   OUTSIDE    RESOURCES  WELL 

63  USES   PEER  TEACHING 

64  VERY  RESPONSIOLE 

65  WANTS   CHILDREN    TO    UNDERSTAND  CONCEPTS 
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DICTIONARY   FOR   THE  FIELD   EXPERIENCE   STRENGTH  CODES  (CONTINU 


66  WEILL  ORGANIZED 

67  WELL  PREPARED 

68  WOPK    WITH   LEARNING  PROBLEMS 

69  WO-^K    IN   ALL    PHASES    OF    CLASSROOM  ACTIVITIES 

70  EFFICIENT 

71  ENTHUSIASTIC 

72  FRIENDLY 

73  GOOD   COMMAND   OF  ENGLISH 

74  GOOD  IDEAS 

75  POISED 
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DICTIONARY   FOR   THE   GRAOC   I.CVEL  COOGS 


i 

F  IP  ST 

SECOND 

3 

T  H  IPO 

4- 

FOUR  TH 

5 

F  IF  TH 

6 

S  I  XTH 

7 

St  VENTH 

8 

E IGHTH 

9 

PRE-KINDERGARTEN 

1  0 

K INDERGARTEN 

I  I 

MULTI-AGE  PRIMARY 

12 

MULTI-AGE    UPPER  EL 

I  3 

MIDDLE  SCHOOL 

1  4 

SPECIAL  EDUCATION 

1  5 

MUSIC 

I  6 

''EADING 

17 

PHYSICAL  EDUCATION 

DICTIONARY   FOR    THE   GRADE   POINT    AVERAGE  CODES 


£QQ£_tlU!4B5o        ITEM  NAME 
0 

1  1.5  OR  LESS 

2  1.6-2.0 

3  2.1-2.5 

4  2.6-3.0 

5  3.1-3.5 

6  3.6  -  4.0 
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DiCTtONAQV   FOR    THE   LEAPsNfNG    ACriVITY   COMMENT  CODES 


£C0f:_MgM8£2  iI£M_NA.Mg 
0 

1  ACCU??ATE 

2  ADAPTABLE 

3  BRIEF 

4  CAREFUL  lOF.AS 

5  COMMAND   OF  SUBJECT 

6  COMPETENT 

7  COMPLETE 

8  CREATIVE 

g  CPITICA.    INDEPENDENT  THINKER 

10  DESCRIPTIVE 

11  ENE=?GETIC 

12  ENTHUSIASTIC 

13  EXCELLENT 

14  EXCELLENT  IDEAS 

15  FAIR 

16  FLEXIBLE 

17  GOOD 

13  GOOD   CLASSROOM  APPLICATIONS 

ig  GOOD  CRITERIA 

OQ  IMAGINATIVE 

21  INTERESTING 

22  LOGICAL 

I!  K^EO^Moli    EVIDENCE    TO   SUPPORT  CONCLUSION 

25  NEEDS    MORE  DOCUMENTATION 

2>5  NEEDS   TO   BE   MORE  CONCISE 

27  NOT    ENOUGH  SOURCES 

28  OPIOINAL  IDEAS 

29  PRECISE 

30  POOR 

31  RFASONED  INFERENCE' 

32  RELIABLE 

33  RELATES   WELL    TO  PEOPLE 

34  RESOURCEFUL 

35  SATISFACTORY 

36  SEQUITER 

37  SCIENTIFIC 
33  SCHOLARLY 

39  STEADY  PURSUIT   OF  TASK 

40  STIMULATING 

41  SYSTEMATIC 

42  THOUGHT=ULLY  APPLIED 

43  TOO  GENERAL 

44  WELL   CHOSEN  READINGS 

45  WELL  DISCUSSED 

46  WELL  DOME 

47  *'ELL  RESEARCHED 
4S  WELL  STATED 

49  WORK   COMPETENT    IF  ATTENTIVE 

50  WORK    SHOWS  HUMOR 

51  WRITING  DIFFICULT    TO  READ 
52 

53  ABILITY    TO   DO  THIS 

54  INTEREST    IN    WORKING   WITH  PUPILS 

55  NO  PROBLEMS 

56  UNDERSTOOD  ACTIVITY 

57  PASSED 

58  WORKS  HARD 

59  INTERESTED 
60 


235 


DICTIONA-<Y   FOR   THE   LEARNING   ACTIVITY   TITLE  CODES 


0 

1  ORIENTATION 

2  FINAL  EVALUATION 

J  NEED    AND    ROLE    OF  ART 

4  ART    GROWTH    ^ND  DF.VELOPMENT 

5  ART  CURRICULUM  PLANNING 

6  STUDIO  ACTIVITIES 


7 
8 
9 
1  0 
1  1 
12 
1  3 
1  4 
15 
16 
1  7 
I  3 
i  9 
20 
21 
22 
23 
2<V 
25 
26 
27 
26 
29 
30 


31  BASES   FOR   CURRICULUM  PAPER 

32  MEDIA  SEARCH 

33  SOCIAL  CLASS  INTERVIEWS 

34  STUDY    OF   ONE  CHILD 

35  REPORTING   PUPIL  PR,OGRESS 

36  TEACHING    LIFE  PROCESSES 

37  CREATIVE    THINKING  MODULE 

38  ORGANIZING    LEARNING  EXPERIENCES 

39  ROLE   OF  TEACHER 

40  GROUPING    FOR  INSTRUCTION 

41  PLANS   FOR    T£ A CH I NG -LE AR NI NG  SETTING 

42  DEVELOPING    INSTRUCTIONAL  STRATEGIES 


43 
44 
45 
46 
47 
48 


49 
50 

51  LISTENING   AND  SPEAKING 

52  NATURE    OF  LANGUAGE' 

53  VISUAL  LITERACY 

34  HAND'aRITING   AND  SPELLING 

55  COMPOSITION    AND  GRAMMAR 

56  CHILDRENS  LANGUAGE 

57  SHARING    LEARNING  CENTERS 

58  CREATIVITY 


59 
60 
61 
62 
63 
64 
6  5 
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DICTIQ^4A^iY   FOR   THE  LEARNING   ACTIVirY   TITLE   CDQES  (CONTINUED) 


66 
67 
68 
69 
70 

71  BEGINNING  NUMBERS 

72  ADDITION  - 

73  MULTIPLICATION   -  DIVISION 

74  FRACTIONS 

75  DECIMALS    AND  PERCENT 

76  MEASUREMENT    AND  GEOMETRY 

77  NUMERATION    SYSTEMS    AND  3ASES 
78 

70 
0  0 
81 
32 
83 
3A 
85 
86 
87 
88 
89 
90 

91  ANCILLARY    I  NTTF^UMENTS 

92  TEACHING 

93  RESOURCE  COLLECTION 

94  INTERRELATED    TEACHING  UNIT 

95  CAc.L    ORFF  APPROACH 

96  CREATIVE   COMPOSITIONAL  APPROACH 
57  ZOLTCN    KODGLY  APPROACH 

93  FUNDAMENTAL.    CREATIVE    AND    DIRECTED  MOVEMENT 

99  LEARNING    CENTERS    AND    IPQI    IN  MjSIC 

100  PHILOSOPHY  PAPER 

101  MAKING    AND   PLAYING   THE  DULCIMER 

102  COMPOSITIONAL  APPROACH 

103  MUSICAL    CONCEPTS  FOR   EARLY  CHILDHOOD 

104  MODELS   FOP  TEACHING 

105  MUSIC    AND    OPEN  EDUCATION 

106  ROCK, JAZZ,    gospel:'  LET    THEM  TEACH 

107  ORFF   GUIDED  PROJECT 
1  08 

1  09 

110  ACTIVITY  1 

111  ACTIVITY  2 

112  ACTIVITY  3 

113  ACTIVITY  4 

114  ACTIVITY  5 

115  ACTIVITY  6 

116  ACTIVITY  7 

117  ACTIVITY  8 
1  18                  ACTI  VI  TY  9 

119  ACTIVITY  10 

120  APPLICATION   OF   PRINCIPLES   OF   HJMAN  DEVELOPMENT 

121  COMPLETED    BY    TAKING  EOF345 
122 

123 
1  24 
125 
126 
127 
128 
129 

130  TERMINOLOGY    AND   WORD    ATTACK  SKILLS 

131  ASSESS  PUPILS  READING  LEVELS 
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DICTICNA'-^Y   FOR   THE  LEAPiNINC.    ACTIVITY   TITL.C   COOES  (CONTINUED) 


1,32    ~   "*        SELECT  i  UN   OF    APPROPRIATE  MATERIALS 

133  DETERMINE    A  PPR  OPR I  AT  :^   SKILLS   AND   TEACH  THEM 

I3<!f  CLASSv^OGM    ORGANIZATION   AND    RECORD  KEEPING 

135  PREPARATION   OF    MATERIAL  FILE 

135  READING  READINESS 

137  METHODS   OF   TEACHING  READING 

138 

139  .    -  - 

X40 

141 

142 

1A3 

14  4 

145 

146 

147 

143 

149 

150  LABORATO.RY  1 

151  -LAaORATORY  2 

152  LABORATORY  3 

153  LABORATORY  4 

154  GRAPHING  VARIABLES 

155  MEASURING 

156  DESIGNING    AND   RUNNING  EXPERIMENTS 

157  ECOLOGICAL  VARIABLES 

158  CONTROLLING  VARIABLES 

159  WAIT    TIME    AS    A    FACTOR    IN  INQJIRY 

160  FATE  CONTROL 

161  VEREAL  SANCTIONS 

162  INQUIRY 

163  CLASSROOM  CONTROL 

164  MANAGEMENT 

165  EXEMPT   BY   PREVIOUS  REQUIREMENTS 
1  66 

167 
163 
169 

170  KEEPING  UP   WITH  RESEARCH 

171  SYSTEMATIC    CLASSROOM  OBSERVATION 

172  MAPPING    AND   AREA   SOCIAL  SYSTEMS 

173  COMPLETED    BY    TAXING  EOF320 
1  74 

175 
176 
177 
178 
179 

180  SOCIAL   SCIENCE  DISCIPLINES 

131  MEDIA    AND  ACTIVITIES 

182  SKILLS    OF    SOCIAL  STUDIES 

183  PROGRAM   PLANNING    AND  EVALUATION 

184  PERSONAL-SOCIAL   AND    INTERGRCUP   PROBLEM  SOLVING 

185  GROUP    STUDIES    AND   PROBLEM  SOLVING 
186 

1  87 
1  88 
1  89 

190  ART 

191  CURRICULUM 

192  HUMAN   GROWTH    AND  'DEVELOPMENT 

193  LANGUAGE  ARTS 

194  MATHEMATICS 

195  MUSIC 

196  READING 

197  SCIENCE 

198  SOCIAL  FOUNDATIONS 

199  SOCIAL  STUDIES 
POO 
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DICTIONARY   FOR   THE  LEAPNING   ACTIVITY  GROUP  CODES 

QgoE_NliMa£R  iIEM_NAMg 

1  GROUP 

2  INDIVIDUAL 


DICTIONA.^Y    FOR    THE   LEARNING    ACTIVITY    SU3STITJTE  COOES 

CQQ£„NiJi:^BSR  IlEM_NAMg 

1  SUBSTITUTE 

2  REGULAR 


DICTIONARY   FOR    THE    LEVEL    IN    CEP  COOES 


QQQE_NiJMaEB  LI£M..NAM£ 
0 


1  INITIATE 

2  ASSISTANT 

3  ASSOCIATE 

4  INTENSIVE 


DICTIONARY    FOR  THE    MARITAL    STATUS  CODES 


CQDE_ritJMO£P  iIFM_hjAM£ 
0 

1  SINGLE 

2  MARRIED 

3  DIVORCED 
*  WIDOWED 


239 


DICTIONAkY   for    the   MYERS    B'UGGS    TYPh:  CODES 


0 

1 

I  STJ 

2 

ISTP 

3 

ESTP 

4 

ESTJ 

5 

ISFJ 

6 

I  SFP 

7 

ESFP 

8 

ESFJ 

9 

INF  J 

10 

INFP 

1  1 

ENFP 

12 

ENFJ 

1  3 

INTJ 

1  4 

I  NTP 

15 

ENTP 

16 

ENTJ 

DICTIONARY    FOP    THE   PRII^JT   REQUEST  CODES 


£Q[2£_i:iUf''3£"       item  name 

1  MYERS  f^^IGGS 

2  REQ«  COURSES 

3  REGISTRATION 

4  L  .  A. 

5  L.A.  SUMMARY 

6  FIELD 

7  FIELD  SUMMARY 

8  COMMUNITY 


DICTIONARY   FOR    THE   QUARTER    NUMBER  COOES 


0 

1  FALL 

2  WINTER 

3  SPRING 

4  SUMMER 
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DICTIONARY   PQR    THE  REQUIRED    COURSE    NAME  COOES 


1 

2 
3 
^ 
5 
6 
7 

a 

9 


EH*91 

MSC260 

MSC390 

MS310/31 I 

PHR361 

PHP373 

SCH20 I 

MEDIA  EQUIPMENT 
MEDIA  PRODUCTIONS 


DICTIONARY   FOR    THE    SCHOOL   NAME  CODES 


£QQE_N!iM3EE 
1 
2 
3 
4 
5 

A 


ITEM  NAME 
J.J.  FINLEY 
HAWTHORNiE 
SIDNEY  LANIER 
LITTLEWOOO 
SHELL 
TEWILLIGE« 
WESrwOOD 


DICTIONARY    FOR   THE    SEX  CODES 


F  FEMALE 
M  MALE 


DICTIONARY    FOR   THE   SPECIALIZATION    TYPE  CODES 


1  ELEMENTARY 

2  EARLY  CHILDHOOD 
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DICTIGNARY   POP    THE   TPAVEL    t"X  PER  I  F.NCH  CODSS 
0 

1  AFRICA 

2  ASI  A 

3  BERMUDA    AND  BAHAMAS 

4  CANADA 

5  CARIBBEAN 

6  CENTRAL  AMERICA 

7  EUROPE 

8  MEXICO 

9  MIDDLE  EAST 

10  PACIFIC  ISLANDS 

11  U.S.A*-    ALL  OVER 

12  FAR    V^ESTEFN  STATES 

13  MIDDLE    ATLANTIC  STATES 
1  «^  MIDWESTERN  STATES 

15  NEW   ENGLAND  STATES 

16  PLAINS  STATES 

17  POCKY    MOUNTAIN  STATES 
13  SOUTHEASTERN  STATES 
19  SOUTHWESTERN  STATES 
20 


DICTIONARY   FOR    THE    TYPE  CODES 

CODE_N^^^25.P  I1£M_Nj4ME 

0  NO   OLD    MAIN    FILE  EXISTS 

1  OLD    MAIN   FILE  EXISTS 


DICTIONARY   FOR   THE   WORK    EXPERIENCE  COOES 

£Q'i£_NyMR£R       ITEM  NAMg; 

0 

1  BABYSITTER 

2  CAMP  COUNSELOR 

3  CLERK 

A  CLUB  WORK 

5  DAY   CARE  CENTER 

6  LAOOPATDRY  TECHNICIAN 

7  LITTLE  THEATRE 

8  NURSERY  SCHOOL 

9  RECEPTIONIST 

10  RECREATION  CENTER 

11  SALESPERSON 

12  SECRETARY 

13  STUDENT  ASSISTANT 

14  SUBSTITUTE 

15  TEACHERS  AID 

16  TOUR  GUIDE 

17  TUTOR 

la  OTHER    WORK  CLASSIFICATION 
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